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I. INTRODUCTION 


A. CDLOVERVIEW 


This thesis deals with the Common Data Link (CDL), a project of the Defense Support 
Project Office (DSPO). The CDL is a full duplex, point-to-point microwave data link 
designed to provide jam resistant communications between two remote platforms, such as 
an airborne asset and a surface platform. The purpose of the airborne platform is to collect 
signal and image intelligence data for transmission over the CDL. In tum, the surface 
platform evaluates this data while transmitting command, control, and communications 
information back to the aircraft. 

The downlink, or return link, operates at a data rate of 274.176 Megabits per second 
(Mbps) as a high rate, or can be scaled down to a low rate of 10.71 Mbps. It is a multiplexed 
data stream of bit pipes, ranging in rates from 25 Kilobits per second (Kbps) to 42.84 Mbps. 
The bit pipes are hierarchically multiplexed for the 274.176 Mbps configuration as shown 
in Figure 1. 

The uplink, or command link, operates at 200 Kbps. The transmitted data is comprised 
of mostly equipment commands multiplexed with audio and synchronization bits. For the 
purposes of this work, it is assumed to be unjammable. This assumption is supported by 


current microwave link implementations. 


B. OBJECTIVES 


The primary objective of this work is to design a link monitoring mechanism and its 
associated constructs for the CDL. Secondly, the mechanism must be modelled in a 
computer simulation, in this case using MIL 3, Inc.'s Optimized Network Engineering Tool 
(OPNET), in order to evaluate the faithfulness of the monitoring design. Additional model 
changes will also be presented to integrate OPNET models of Transmission Control 
Protocol/Internet Protocol (TCP/IP) into the existing CDL-FDDI model. This integrated 
CDL network model will serve as a building block to evaluate the link’s susceptibility to 


jamming, and will aid in development of CDL-specific applications. 
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CDL Multiplexer Hierarchy [1] 


Figure 1 


C. SCOPE 
The scope of this thesis includes the following: 

° Introduce the Point-to-Point Protocol (PPP) and support its use as a basis 
for a link monitoring algorithm. 

. Present an approach to link monitoring and the issues surrounding the 
chosen approach. 

е Discuss and evaluate the link monitoring additions made to the OPNET 
model of the remote LAN interconnection using CDL. 

° Present changes to existing TCP/IP OPNET models to utilize them with 
the enhanced network model. 


D. ORGANIZATION 

Chapter I provides an introduction to PPP and its integration into the CDL scheme. 
Chapter III delineates issues involved in developing the chosen link monitoring algorithm 
as well as an overview of the process itself. Chapters IV through VI deal with the OPNET 
implementation of both link monitoring and the TCP/IP models. Conclusions and 


recommendations are listed in Chapter VII. 


II. POINT-TO-POINT PROTOCOL (PPP) 


Requirements for the CDL network interface (NI) have been established and evaluated 
by [2]. The recommendations include a remote bridge between the collection and surface 
platforms, which is actually a pair of half bridges, each of which connects a LAN to a point- 
to-point link. Figure 2 illustrates this remote bridge connection. 

The connectivity is to be implemented in the Primary Communication Elements (PCE) 
and Surface Communication Elements (SCE) rather than the network layer due to 
requirements that the CDL may need to route datagrams from the network layer and bridge 
frames from the Media Access Control (MAC). Therefore, some type of link-level protocol 
is necessary for communication and data transmission between the two bridges, and the 
Point-to-Point Protocol (PPP) is seen as an ideal choice. Detailed discussion of the level of 


connectivity is also included in [2]. 


A. GENERAL DESCRIPTION 


PPP is a data link protocol standard adopted by the Internet Engineering Task Force 
(IETF), the governing body for standards related to the Internet. The goal of PPP is to 
provide a standard method for transporting protocol data units of multiple protocols over 
point-to-point links through a simple encapsulation scheme. 

PPP has two sub-protocols associated with it. First is the Link Control Protocol (LCP), 
which is the administrative arm of PPP. The LCP allows a multitude of establishment, 
configuration, and testing options. The second sub-protocol is the Network Control 
Protocol (NCP). Its purpose is to smooth out incompatibilities between different types of 
network-level protocols (e.g. IP, Appletalk, Novell IPX, etc.) and enable their data units to 


be transmitted over one point-to-point link. 


B. RATIONALE FOR CHOOSING PPP 


Using PPP within the remote bridge scheme deals with the bridge communication and 


data transmission issues, but further analysis uncovers many additional benefits to the 
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Figure 2: The Role of PPP in a CDL-based Remote LAN Interconnection 


CDL. These include: increased bandwidth utilization, link monitoring capabilities, 
dynamic reconfiguration, and future expandability to network-level interconnection. Each 


of these reasons further supports PPP as the protocol of choice. 


1. Maximum Bandwidth Utilization 


Current CDL specifications describe a fixed multiplexer hierarchy on the return 
link. This limits the type of equipment from which information can be transmitted on the 
CDL because the equipment must conform to a hard-wired data rate. If the nonconforming 
equipment is installed anyhow, a slower unit will waste bandwidth, while a faster unit will 
Cause overhead in time and extra hardware due to fragmentation requirements. Through 
LCP reconfiguration of PPP packet sizes and built-in fragmentation constructs, PPP can 
make this multiplexer hierarchy invisible to the applications. 

Another difficulty posed by a fixed multiplexer hierarchy is the inability of the 
senders to utilize extra bandwidth that may be available in the downlink. For instance, if a 
piece of equipment breaks or is not being used, the bandwidth it would normally use is 
filled with useless padding in order to maintain link synchronization. 

PPP provides a resequencing capability to distribute frames to any multiplexer 
input and resequence the data at the receiving end, effectively using all available 
bandwidth. In jamming scenarios, non-realtime data which can tolerate resequencing- 
related delays can be buffered at the source to be sent as bursts over multiple multiplexer 


inputs during non-jamming periods. 


2. Dynamic Configuration Changes 
In most military applications, the effectiveness of equipment relies on its ability 
to adapt. Different situations call for different capabilities, and in the case of the CDL, its 
deployment in the joint services may force a wide array of platforms to be interfaced with 
the link for a variety of missions with different data requirements. Even in any one mission, 


information such as imagery may need a higher resolution at different points in time. 


Though the equipment may have that capability, in a fixed multiplexer hierarchy the 
application-to-link connection may not be easily altered. 

PPP offers a solution to this problem through dynamic reconfiguration of the data 
link using LCP reconfiguration constructs already in place. Furthermore, PPP can handle 
data coming from the onboard FDDI ring, or from a network-level connection with another 


platform, all through dynamic configuration.[3] 


3. Flexibility and Upward Compatability 


Another problem caused by the current fixed hierarchy is that deployment of 
newer networking technologies would not be easily possible. Hard-wired data rates and a 
fixed multiplexer hierarchy hinder any long-term expansion plan, which will be necessary 
in the quickly expanding field of computer networks. Current research into gigabit-speed 
networks and beyond could cause CDL obsolesence even before its full-scale deployment, 
if the approach to the CDL network interface lacks proper vision of the future. 

Work reported here 1s based on our position that PPP 15 the point-to-point data 
link protocol of the future, both for the CDL and the networking community, in general. It 
is an adopted standard, widely used, and easily adaptable to proprietary implementations. 
It has been used on T1 and T3 links, high-delay satellite links, and is being considered for 
gigabit-speed SONET links. Most importantly, PPP’s flexibility will make CDL portable 
and upgradable, allowing for greater deployment, interoperability, and expanding 
capabilities in line with future technology. 


4. Link Monitoring 
Jamming is a potential threat in any military application. Even without jamming, 
minor interference can play havoc with data intensive links transmitting through the 
atmosphere. Some form of error detection, such as frame check sequences (FCS), must be 
used to alleviate this problem. 
Any data link protocol has some form of error detection. For instance, FDDI has 


an FCS on every frame. This is examined and evaluated at the ultimate destination. The 


error handling could therefore be left as an end-to-end problem between the source and 
destination. 

However, in a CDL scenario, errors have a much higher probability of occurrence 
over the link itself than on the FDDI rings at either platform. Thus, it makes sense to check 
each frame as it comes across the link. Unfortunately, for the bridging stations to check 
each frame would require breaking up each frame, FCS calculations, and reframing in order 
to transmit on the FDDI ring. This presents an unacceptable overhead and violates the end- 
to-end principle.[4] 

The solution proposed is to encapsulate every outgoing FDDI frame in another 
frame, namely PPP, with error checking being conducted on the higher level instead of 
breaking apart the underlying FDDI frame. Although PPP is a data link layer protocol just 
as FDDI, it can be used to encapsulate the FDDI frame for point-to-point transmission. 

Link monitoring also involves reporting the link status. When an FCS is 
evaluated, the receiving station knows how the transmission is being affected, but to be of 
use 1n flow control, the information must be sent to the transmitting site. PPP has built-in 
link quality monitoring constructs, including a Link Quality Report (LQR), whose 


transmission frequency can be negotiated at link establishment time. 


C. PPP FRAME FORMATS 


Encapsulation in PPP is attained by merely attaching a header to the data to be framed. 
Any packet being transmitted through PPP will be prepended with a 16 bit Protocol 
IDentification (PID) which identifies the network protocol which spawned the packet. If 
PPP is generating a control frame, it identifies the type of control frame. Additional padding 
bytes may be appended to the data, if desired. 

Framing requirements are not specifically delineated in the PPP standard [5] to allow 
flexibility in implementation. However, a separate standard has been adopted to provide 
High-Level Data Link Control (HDLC) framing to PPP frames [6]. This is the only current 


PPP framing standard, but it does not preclude a further study into a more suitable framing 


method for CDL purposes. In any case, this work assumes PPP will be implemented with 
HDLC framing. 


1. Multilink Protocol 


The Multilink Protocol is a proposed addition to the suite of Internet PPP 
standards currently in place[7]. Its primary function is to allow for dynamic changes in the 
number and size of point-to-point links between two PPP servers. If this should occur, the 
Multilink Protocol enables PPP to maximize its use of the available bandwidth. 

It accomplishes this in three steps, illustrated in Figure 3. First, encapsulated PPP 
packets are fragmented, if desired, depending on the data rates of the individual links. This 
can be used to transmit each packet across the varying data rates in the shortest time, and 
ensuring no one link has data in the transmission pipe longer than any other. Second, all 
PPP fragments and other designated PPP packets are further encapsulated with a Multilink 
header. In turn, these Multilink packets are encapsulated in another PPP header and finally 
framed to be transmitted. 

The Multilink Protocol format is shown in Figure 4. In the Multilink header, the 
sequence number is a 24-bit value used to keep fragments in order. The 'B' and 'E' bits 
designate the beginning and ending fragments of a packet sent in multiple frames. This 4 
byte Multilink header may be substituted with a two byte header in which the sequence 
number is reduced to 12 bits and the ‘B’ and ‘E’ bits remain intact. 

The address, control, and frame check sequence (FCS) fields are specific to the 
HDLC framing format, and even so, can be negotiated between the PPP servers to not be 


transmitted, thereby eliminating unnecessary overhead. 


2. Link Quality Report (LQR) 
The Link Quality Report (LQR) is an established PPP mechanism which allows a 
sender to determine how its data is being received at the receiving end of a point-to-point 


link[8]. It is composed of 12 32-bit fields containing statistics maintained at the receiver, 
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sequence number 


DATA 


Frame Check Sequence 


Address: HDLC field - Oxff = all addresses 
Control: HDLC field - 0x03 = unnumbered information 
PID: PPP field - 0x003d = PPP Multilink Protocol 
B/E: Multilink flag - set when this frame is a (B)eginning or (E)nd 
fragment 
Sequence Number: Multilink field - prevents reordering of fragments 
FCS: HDLC field - checksum field 


The Address, Control, and FCS fields assume HDLC framing, and even so, 
are completely optional. 


Figure 4: PPP Multilink Frame Format 
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as shown in Figure 5. Upon receipt of an LOR, a station appends another 5 32-bit fields of 
its own Statistics, bringing the total size to 544 bits. 

The basic premise in the development of the LQR format and transmission 
characteristics is that the transmitter will evaluate its own downlink based on statistics of 
the link accumulated at the receiving end. These values are grouped into a PPP frame which 
will be sent to the transmitting site. The transmitting site can then independently evaluate 
the statistics and reconfigure the link as it sees fit, assuming the receiving side agrees with 
the changes. This procedure supports independence between the transmitter and receiver 
wherein the receiver does not need to know any capabilities or characteristics of the 
transmitter other than those established during link configuration. For CDL purposes, 
independence is indeed necessary, but other factors call for significant changes in both the 


LOR format and implementation, as well as other aspects of link monitoring in general. 


D. SUMMARY 

This chapter has presented PPP as a suitable choice for the data link protocol to 
interconnect the PCE and SCE over the CDL. This decision is further supported by 
numerous additional PPP benefits including increased bandwidth utilization, link 
monitoring, dynamic link configuration, and future expandability. Relevant PPP frame 
formats have also been introduced, namely the basic PPP format, Multink protocol, and the 
Link Quality Report. These data frame formats, as well as PPP link monitoring constructs, 


form the basis for developing a CDL link monitoring mechanism. 
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Figure 5: PPP Link Quality Report Format 
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III. LINK MONITORING APPROACHES/ISSUES 


A. OVERVIEW 


This chapter deals with the development of a link monitoring mechanism, based on 


PPP constructs, for the CDL. Figures 6 and 7 graphically present the proposed approach, 


which is outlined below: 


1) 
2) 
3) 
4) 
5) 
6) 
7) 


8) 


9) 
10) 


11) 


FDDI frames/datagrams are encapsulated with a PPP header and 
framed. 

If necessary, PPP frames are fragmented. 

PPP frames and fragments are reframed in the PPP Multilink protocol. 
Pseudo-random monitoring frames are injected into the data stream at a 
fixed rate. 

The stream of PPP frames is distributed amongst multiplexer inputs. 
PPP frames are pulled off demultiplexer outputs at the receiving end. 
PPP data frames are decapsulated and the FDDI frames/datagrams are 
sent to the appropriate layer for continuing transmission. 

Errors are detected in monitoring frames, and the results are maintained 
in a fixed size history. 

Using the history length, the fraction of bad packets is calculated. 
Based on this fraction, LORs are transmitted at fixed intervals with 
information regarding link status (good/bad) and trend since last LOR 
(up/down). Link status is determined (at the surface platform) based on 
hysteresis, to eliminate excessive link fluctuations. 

LQRs are received and used to determine the necessary actions by the 


transmitting station. 


B. MONITORING PACKETS VERSUS FRAME CHECK SEQUENCES 


The first issue confronting CDL link monitoring is whether to use the FCS built into 


HDLC-based framing, or use another form of error detection such as individual monitoring 
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packets. The monitoring packet approach uses either fixed or pseudo-random data streams 
packetized, framed, and interleaved with regular PPP data frames. At the receiving end, the 
monitoring packets are easily compared to the expected contents, and errors per packet can 
be quickly counted without excessive computation. 

On the other hand, an FCS requires detailed calculations, and the complexity of the 
calculations increases as the number of bit errors to be detected increases. These 
computations must be done twice, once before transmission and once after reception. Also, 
FCS can never guarantee 100% error detection, whereas preset monitoring packets always 


guarantee perfect detection. 


C. MONITORING PACKET GENERATION 


Three factors play a major role in monitoring packet generation. They are packet size, 
insertion rate and packet format. Individually, each has a major impact on the monitoring 
effectiveness, but they must be balanced to avoid unnecessary overhead or undetected link 


interference. 


1. Packet Size 

Monitoring packet size has a clear impact on error detection: the bigger the 
packet, the better the BER estimation. However, this factor is limited due to the data 
multiplexing at the hardware level. Since each framed monitoring packet is broken up in 
the aggregate data stream, monitoring bits are, in essence, uniformly distributed throughout 
the data. 

This is much more effective than a pattern of a certain number of data packets 
followed by one monitoring packet. If the jamming pulse duty cycle was low (short pulses 
with longer intervals between pulses), data could become garbled at a much higher rate than 
the monitoring packets, yet an evaluation of the monitoring packets would only show slight 
degradation. In contrast, a uniformly dispersed monitoring packet would increase its 


detection capabilities in proportion to the number of monitoring packet fragments within 
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the data, and the resulting evaluation would be more faithfully indicative of the correct link 


status. 


2. Packet Insertion 
There are two factors with regard to packet insertion: insertion rate and pattern of 
insertion. Insertion rate is the rate at which monitoring frames are created and inserted into 
the output data stream. A pattern of insertion refers to the manner in which a monitoring 
frame is placed into the data stream at individual multiplexer inputs so as to effect 


maximum error detection. 


a. Insertion Rate 
As in the case of packet size, insertion rate has a clear impact on monitoring: 
the faster and more frequently monitoring packets are transmitted, the better the 
monitoring. Unfortunately, where the distribution of monitoring bits in the aggregate data 
stream limited the impact of packet size on monitoring effectiveness, this is not the case 
with the insertion rate. Thus, the insertion rate will determine, to a great degree, whether 
there is excessive monitoring overhead or sampling of the error events on the aggregate 


data stream is insufficient. 


b. Pattern of Insertion 

Insertion of monitoring frames into the CDL multiplexer hierarchy can take 
on three primary patterns. First, monitoring frames may be input only on a specific 
multiplexer input. Secondly, frames may simply follow a round robin scheme, oblivious to 
the data rate of the particular input. Finally, frames can be input to the least loaded 
multiplexer input - that input with the smallest queue waiting to be transmitted. 

For the first strategy, the main benefit is simplicity. Unfortunately, this 
scheme depends too heavily on the load balancing between multiplexer inputs and the 
inputs’ data rates. If there is no load balancing, the selected input pipe may get backlogged, 


forcing important data to compete for transmission time. On the other hand, even if load 


18 


balancing is in place, the input may simply be too slow to handle all the monitoring traffic, 
again causing backlog in the transmission queue and worse, inhibiting the actual 
monitoring transmission rate and thereby, the monitoring effectiveness. 

A round robin procedure has some of the same limitations as the fixed input 
strategy. While the individual load on each input would have less effect, the disparity 
between multiplexer input data rates could cause clustering of monitoring bits in the final 
data stream. For example, it would be possible to transmit a continuous stream of 
multiplexed monitoring bits followed by a stream of data bits. Such a scenario is 
undesirable because the errors in the data part of the stream will not be caught by the 
monitoring packets. While this extreme scenario is unlikely, a strictly round robin 
distribution on disparate data rates decreases the probability of error detection. 

While round robin and fixed input insertion patterns are fundamentally 
flawed with regard to a CDL situation, a better pattern can be found by evaluating the 
discrepancies with each. With fixed input, the primary concern was backlogging any one 
input, while round robin was not robust enough to ensure uniform spreading of monitoring 
bits. The empty selection insertion strategy solves both problems at once. 

Using empty selection as an insertion pattern is effective, but not without its 
downfalls. For instance, determining the emptiest multiplexer input requires constant 
monitoring of all input queues and relating queue size to the input’s data rate. Also, a slow 
pipe could still be chosen, causing non-uniform distribution of monitoring bits. 

The packet insertion strategy must address a trade-off between effectiveness 
and simplicity of implementation. Queue monitoring and non-uniform distribution can be 
dramatically reduced by using smaller monitoring packets and increasing the insertion rate, 
thereby keeping the effective monitoring frame transmission rate constant. To this end, 


empty selection is an efficient insertion pattern. 
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3. Overhead and Effective Sampling 
In summary, packet size and insertion characteristics are critical parameters in 
any monitoring policy. The total transmission overhead can be calculated using these two 


criteria (Equation 1). Assuming uniform distribution of monitoring bits, the total amount of 


Transmission Overhead = Packet Size (bits/pkt) X Insertion Rate (pkts/s) (1) 


overhead is the only factor that will determine if the monitoring bits will be an effective 
sampling of the true bit error rate (BER). This implies that as long as the interval between 
monitoring bits in the aggregate data stream is less than the jamming pulse duration, the 
monitoring status will accurately reflect the link status. 

Now that a quantitative value for overhead can be set, the only question is how to 
vary packet size and insertion rate to maintain acceptable overhead. Based on the earlier 
evaluation of both factors, we may conclude that overhead policy should be controlled by 
varying the monitoring packet insertion rate and maintaining a small monitoring packet 
size. This shall ensure a quick monitoring response time while still utilizing the maximum 


allowable quantity of overhead. 


4. Packet Format 

The only issue in relation to packet format was the contents: would it be a fixed 
data pattern or some random pattern. Clearly both approaches have merits: a fixed data 
pattern would be easily compared at the receiving end, but would lack true probabilistic 
independence; a random pattern could pass the independence test, but would have no basis 
for comparison at the receiving end. 

The solution is again a hybrid of both formats: a pseudo-random generator which 
would be initialized by both PPP servers. Now, the data pattern is random for all practical 


purposes, but is still easily compared to an expected value at the receiving end. 
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D. MONITORING PACKET EVALUATION 


1. History 

When a monitoring packet is received, the number of errors are counted and this 
value is placed in an array of fixed length. A pointer is incremented to the next element in 
the array, and the next error count is placed in the next element. When the pointer reaches 
the end, it resets to the beginning of the array. Each time a new element is entered, a new 
ratio of packets in error (in the history) to total packets (in the history) is computed, ranging 
from 0 to 1. 

Another idea in evaluating the ratio would be to add up the total errors in the 
history, and calculate an average BER and act on that. A running total can easily be 
maintained, just as when counting bad packets. The only additional requirement would be 
memory increasing from one bit per history element to two bytes per history element. This 
is a viable option, but it has not been further explored in this work. 

The ratio generated from the history is the basis for transmitting LQRs and overall 
link status, so the length of the history is a crucial element in the reporting process of link 
monitoring. For instance, a history of length 1 would cause the link to bounce between good 
and bad each time the current packet was different than the previous packet. Expanding that 
idea, a history of length 10 will oscillate, on the average, at a rate 1/10 less than a history 
of 1; a history of length 100 at a rate 1/10 that of length 10, and so on. However, a data link 
that changes status too slow is as much a detriment as a link which changes too fast. Slow 
changes in history cause sluggish response іп transmitting LQRs, and result in inefficient 
monitoring feedback to the transmitting station. Requirements of a quick response time and 


limited bounce force another compromise in order to achieve both desired results. 


2. Hysteresis 
Hysteresis acts as a history for the history, allowing a small history length for 
quick response, and at the same time preventing too much oscillation. Figure 8 illustrates 


the principle for the CDL. 
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Initially, upper and lower hysteresis bounds are set for the ratio, which will 
determine when the link is declared good or bad. The link starts out ‘good’, and as bad 
packets are received, the ratio goes up. If the ratio oscillates between values without 
crossing the upper hysteresis bound, the link remains in a ‘good’ status. Once the ratio 
passes the upper bound, the link is immediately declared ‘bad’ and will remain bad until 
the lower hysteresis bound is crossed. 

Hysteresis bounds must be chosen carefully, as narrow bounds will cause 
excessive fluctuation just as a small history length, and wide bounds will create long delays 
in link status changes. It is recommended that this be a dynamic attribute, as there is no 


method to alleviate erroneous results caused by fixed hysteresis bounds. 


3. LQR Transmission Frequency 

LQRs can be transmitted at a fixed or variable rate depending on the criteria on 
which transmission is based. For example, a fixed rate transmission may occur if an LOR 
is sent for every three monitoring packets received. On the other hand, a variable rate 
transmission may occur if an LOR is sent when the last two monitoring packets are bad. 
Clearly, a fixed LOR transmission is easy to implement, while a variable rate allows for 
flexibility and better trend evaluation. Using the positive aspects of both transmission 
methods, another compromise is seen as the best approach for the CDL. 

The method recommended is a fixed rate based on the ratio. The interval between 
the ratio bounds of 0 to 1 is evenly divided into a certain number of divisions. An LOR will 
be sent as each threshold is passed, either increasing or decreasing. This translates the fixed 
rate into a variable rate, as LQORs will be transmitted at a rate commensurate with how fast 
the ratio is changing, i.e. the slope of the ratio curve. This can impart an urgency to the 
transmitting station that something is causing the ratio to change quickly, and the link may 
go bad soon. 

This process can only accurately perceive a quick change in the ratio if the 


monitoring frames are being transmitted at a constant rate. On the other hand, another 
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approach is where the monitoring frame transmission rate could change based on a fixed 
LOR transmission rate. However, this option was disregarded because evaluation logic and 
dynamic transmission capabilities would be necessary on the collection platform. As 
explained in the next section, it is desirable to keep the collection platform as simple as 


possible. 
E. LQREVALUATION 


1. Evaluation Location 

When constructing the monitoring algorithm, the physical limitation which stood 
out was the disparate data rates of the downlink and uplink. Secondly, weight, space, and 
equipment requirements added to the notion that most of the link monitoring actions and 
evaluations should be conducted at the surface platform, and as little information as 
possible should be transmitted on the low data rate uplink that was not concerned with 
mission command and control. Therefore, while the collection platform actually evaluates 
the LOR, the LOR construction must be conducted on the surface with as much information 


packed into as few bits as possible. 


2. Information Content 


Due to the minimal bandwidth available for transmission, the actual PPP LOR 
construct is not a viable option. instead, a proprietary LQR is recommended which must 
contain, at a minimum, the status of the link. Additional requirements would be based on 
mission type and applications being used. For general purposes, a two-bit report was 
deemed sufficient, which included link status and the trend of the link. 

In a different context, minimal information transmitted to the collection platform 


can have a multitude of possibilities. For instance, a transmission containing n bits could 


lead to 2? possible actions to be taken. Secondly, each different value could signify a 


threshold at which certain BER-sensitive applications could sleep or wake up. A final 


scenario can be seen where the bits could be interpreted as a preset contingency action, such 


as a frequency shift. 


3. Acting Upon an LOR 


No study has been done to determine actions to be conducted upon receipt of an 
LQR. Minimum requirements for LOR content have been established, but no hard and fast 
evaluation implementation has been recommended. However, it is recommended that LOR 
information content should be based on a general mission scenario common to CDL 
deployment situations, while evaluation methods should be variable based on specific 


mission and platform scenarios. 


IV. OPNET MODELLING OF PPP AND LINK MONITORING 


A. BASIC OPNET CDL MODEL DESCRIPTION 

The CDL has been modelled in OPNET as two remote FDDI LANs connected by a 
number of point-to-point links Figure 9 shows the OPNET network level representation of 
the model. Ring O represents the Collection Platform (CP) LAN and ring 1 portrays the 
Surface Platform (SP) LAN. The four point-to-point links terminating at ring] denote 
components of the 274 Mbps return link, while the one link back to ring 0 models the 200 
Kbps command link. 

Each basic FDDI station, illustrated in Figure 10, has the capability to transmit 
synchronous and prioritized asynchronous traffic.Additionally, the station collects 
statistical data particular to the OPNET implementation. L/c src and llc. sink are OPNET 
model entities of the Logical Link Control (LLC), while mac represents the FDDI MAC 





Figure 9: Top Level CDL Model 
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llo src php rx 


Figure 10: Basic FDDI Station 


layer. Finally, phy tx and phy rx represent the physical layer transmitter and receiver. 
Additional details of this FDDI station model can be found in [9]. 

Application connections are represented by 10 stations on each ring, each of which can 
transmit data on the ring destined for any station on either ring. Each LAN has a bridging 
station, designated F9, which is the LAN's connection to the CDL. Figure 11 shows the 10 
station ring, while Figure 12 shows the collection platform bridging station. The additional 
modules in Figure 12 represent four point-to-point transmitters and one receiver for CDL 
communication. 

The command link is modelled as one point-to-point link with a data rate of 200 Kbps. 
The return link is modelled as four links with different data rates, currently set at 1.53, 3.06, 
21.42, and 42.84 Mbps. The links are connected to transmitters/receivers patched into the 
Logical Link Control (LLC) of the bridging stations. 

Jamming is introduced over the point-to-point links as a function of varying bit error 


rate (BER). Two jamming types are currently implemented: a channel-swept jammer with 
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Figure 11: 10 Station FDDI Ring 


fixed durations and intervals, and a pulse jammer with random durations and intervals. 
Both jamming configurations use a random, uniformly distributed BER with maximum 
values defined for jamming periods and intervals between jamming. 

There are also two load balancing algorithms used: round robin, which distributes 
incoming frames in a cyclic fashion, and empty selection, which puts the current frame on 
the link with the smallest send queue. Details of both jamming and load balancing 
algorithms and their implementations may be found in [10]. 


B. OVERVIEW OF CDL MODEL CHANGES 


Changes made to the existing OPNET model are very basic with the intent of 


maintaining as much previously written code as possible. Actual code modifications are 


done on only five files in the model: 


- collection platform LLC sink process model (cp fddi sink.pr.m) 
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Figure 12: Collection Platform Bridging Station 
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- collection platform LLC source process model (cp_fddi_gen.pr.m) 
- surface platform LLC sink process model (sp_fddi_sink.pr.m) 

- surface platform LLC source process model (sp_fddi_gen.pr.m) 

- point-to-point error allocation pipeline stage (cd! pt error.ps.c) 

The entire list of changes can be broken down into 3 areas. The first area is data 
encapsulation, which deals mostly with the new PPP packet formats and their various 
fields. The link monitoring algorithm is the second area, which caused most of the code 
changes. This includes not only the model files listed above, but also new attributes in the 
simulation environment file. Finally, statistic and probe additions were necessary to record 
relevant data. For completeness, a section is included on how to use this model for 


experimentation. 


C. DATA ENCAPSULATION 

Code changes to encapsulate data are minimal. They include creating a formatted PPP 
packet and setting the PID. Any actions to be taken are based on the assigned PID, and 
coded using a switch() statement. This structure allows for individual additions of PID 
options and easy debugging of packet contents. 

Two different packet formats are used for this implementation: one for standard PPP 
frames, and one for Multilink frames. Ideally, one packet should have been sufficient, since 
both are actually PPP frames. However, the separate packet formats allow for simpler 
simulation coding, since otherwise each information field would have had to be 
dynamically created. Figure 13 shows both formats as they are seen in OPNET’s Parameter 
Editor. 


1. Standard PPP Format 


The standard PPP packet format includes all the basic fields of an HDLC-framed 
PPP packet. The only editable fields are the high and low bytes of the PID. The 


“information” field is present for higher level encapsulation, but none is currently used. 
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Other than a higher level packet, any information to be transmitted in this type of 
PPP packet, such as LQR data or other PID-specific fields, must be hard-coded using a 
kernel procedure, op pk fd set. An example can be found in the file sp fddi gen.pr.m, 
where the LOR data is added to the PPP packet. 


2. PPP Multilink Format 

The Multilink packet has the same basic elements as the PPP packet, with the 
addition of fields specific to a Multilink packet. The overall packet is formatted with the 
optional Multilink Protocol header using a 12 instead of 24-bit sequence number and a B, 
E, and filler sequence of 4 bits instead of 8. 

The “BE” field is listed as information because a fragmenting procedure has not 
been implemented with this model. Also, the field name “FDDI_frame” is only for 
semantics; any frame or datagram can be inserted into this field, as long as it is in an 


OPNET packet format. 
D. LINK MONITORING MODEL 


1. Collection Platform (CP) Logical Link Control (LLC) Sink 

All FDDI frames destined for the SP come up through the MAC layer to the 
Logical Link Control (LLC) sink on the bridge station. Also, any frames generated by the 
bridge station which are destined for the SP also pass to the sink module from the bridge 
station’s own LLC source. These frames are reframed in PPP frames and queued for 
transmission to the SP bridging station’s LLC source based on the load balancing algorithm 
selected in the environment file. 

For monitoring packet generation, the insertion rate (named link_mon_trans_rate 
in the code) is retrieved from the environment file. Upon process initialization, the ‘/N/T 
state schedules a process self-interrupt at each increment for the duration of the simulation. 
When this self-interrupt occurs, the 'DISCARD' state creates a monitoring frame of a fixed 
size (mon pkt size), which is read in from the environment file. The frame is then 


enqueued based on the load balancing algorithm in place for the regular PPP data frames. 


32 


The monitoring frame itself is a PPP frame structure with a fixed size assigned via 
a kernel procedure equal to the desired monitoring frame size. Due to OPNET’s error 
allocation constructs and the methods used in designing the model, there is no need to 
generate a pseudo-random bit stream as the contents of the frame have no bearing on the 


number of bits deemed to be in error. 


2. Pipeline Error Allocation Stage 


In OPNET, each link, whether a point-to-point, bus, or radio link, is defined as a 
number of stages where certain actions take place. For instance a point-to-point link uses 
three stages, each represented by a separate C program: propagation delay, error allocation, 
and error detection. None of these programs is used in the OPNET graphic interface except 
to assign their names to the stage attributes of the appropriate link in the network, as shown 
in Figure 14. Also, these programs must be edited through a separate line editor and 


individually compiled before the overall simulation can be archived and bound. 


(15 3) Attributes 
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Figure 14: Pipeline Stage Name Setup in OPNET Network Level 
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Each packet is acted on by these stages, with the resulting values assigned to a 
fixed set of kernel variables unique to each packet. For instance, each packet has a kernel 
variable named OPC_TDA_PT_NUM_ERRORS, but the value contained is unique to the 
packet. 

The errors in a packet are calculated using a timestamp, the size of the packet, and 
the jamming pattern set up in the environment file. [10] details this error allocation 
procedure. Consequently, this total quantity of errors is put into 
OPC. TDA PT NUM ERRORS and is carried with the packet until it is read in the surface 


platform LLC source process. 


3. Surface Platform (SP) Logical Link Control (LLC) Source 


PPP frames are received at the SP LLC source on all four point-to-point links 
from the CP and are evaluated based on their PID's high-order byte. Data frames are 
decapsulated and sent to MAC layer for forwarding, or if the frame is destined for the SP 
bridging station, it is passed to the LLC sink layer for disposition. Currently, when frames 
reach the final destination's LLC sink, they are discarded without prejudice. 

All monitoring frames have a high-order PID byte of OxcO. Once a monitoring 
frame is detected, the low-order PID byte is evaluated to determine what type of monitoring 
frame it is. Current implementation assumes all LCP frames (low-order PID byte = 0x21) 
are monitoring packets. The number of errors computed from the point-to-point link is then 
read and put in the history. 

The history is generated in the ‘JNIT’ state by a function call named 
create_history. The call requires an integer size, which is obtained from the environment 
file. A dynamically allocated circular linked list of integers is created, and a pointer is 
returned to the first element in the list. 

When an error value is added to the history, the pointer is incremented to the next 
element. A counter is then incremented or decremented to reflect if the frame had errors in 


it. A new error ratio is computed, and it is compared to the ratio when the last LOR was 
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sent. If the difference is greater than the LQR reporting criteria, the link status is 
reevaluated and an LOR is sent with the latest information. 

The link status is coded as one integer value, ranging from 0 to 3, which imparts 
two characteristics of the link. These characteristics are the actual status (i.e., good or bad), 
and the trend since the last LOR transmission (i.e., up or down). The integer value reflects 
the decimal equivalent of a two-bit representation where the status is the high bit and the 
trend is the low bit. This is shown in Figure 15. 

Hysteresis is implemented by comparing the new ratio to each of the hysteresis 
boundaries. This will only be checked if an LQR is due to be sent, so the hysteresis bounds 
should be placed at a multiple of the LOR reporting criteria. If either of these boundary 
conditions have forced a status change, the good/bad status is reset; otherwise, the status bit 
remains unchanged. In any case, the old trend is then stripped and reset based on the latest 
comparison. Finally, if an LQR is to be sent. a PPP frame is formatted in the LLC source 


and sent to the LLC sink for transmission to the collection platform. 


4. Surface Platform (SP) Logical Link Control (LLC) Sink 
This process, just as the collection platform LLC sink, encapsulates all FDDI 


frames from the MAC layer and any data from the SP LLC source to be transmitted to the 
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Bit a: Link Status 
0 - Good 
1 - Bad 

Bit b: Link Trend 
0 - Down 
1- Up 


Figure 15: LOR Format in OPNET 
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CP. Since PPP-encapsulated LQRs are sent from the LLC source, a check is introduced to 
bypass all FDDI data collection and PPP encapsulation if the incoming packet is already 


encapsulated. All PPP frames are then transmitted to the collection platform. 


5. Collection Platform (CP) Logical Link Control (LLC) Source 
Once a PPP data frame is received at the CP, it is decapsulated and the data is sent 
to the MAC layer for further transmission. If the PPP frame is a control frame, it is expected 
to be an LQR, since there is no need for monitoring the *unjammable' 200 kbps uplink. 
The LQRs contents are evaluated and a message is printed out to the screen giving 
the link status and trend. Since no policy has been determined for LOR implementation, the 


frame is then discarded with no action taken. 


E. ENVIRONMENT FILE CHANGES 
All attribute changes and additions in the environment file, as with the code changes, 
pertain only to the bridging stations. An example environment file used to generate data can 


be found in Appendix F. The added attributes include: 


> link_monitor_trans_rate - the rate at which monitoring frames are inserted 
into the downlink bit stream (secs/pkt) 


° monitoring pkt size - the physical size of the monitoring packet (bits) 

° LQR TU delta - the ratio change required before an LQR is 
transmitted 

. upper (lower) hysteresis threshold - the boundary ratio values which 


determine if the link is good or bad 


° history length - the number of monitoring packet values maintained to 
calculate the ratio 


Additionally, receiver ecc threshold and transmitter/receiver data rate built-in 
attributes have been promoted to the environment file. For ecc threshold, if the value is 
zero, any incoming packets with errors will be discarded at the receiver, and no monitoring 
would ever be conducted. As for data rates, promoting these attributes allowed quick 


changes to determine the effect of transmitting monitoring frames on various data rates. 
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Е. PROBE/ANALYSIS CHANGES 

Six new Statistics were added to the simulation to monitor simulation performance and 
ensure proper operation of the link monitoring algorithm. Code changes to implement these 
statistics are found in the CP LLC sink, the pipeline error allocation stage, and the SP LLC 
source. Finally, reading the local statistics required additional probes in the simulation’s 


probe file, fddi_cdl_probe_special.pb.m. 


1. Jamming Tracking 

In order to compare the monitoring results with the jamming taking place, an 
accurate picture of the jamming had to be generated. Since jamming is implemented as a 
random value within fixed bounds of time and maximum BER, the jamming input 
parameters could present the basic jamming pattern but not the precise BERs associated 
with each time slot. Therefore it was necessary to generate a statistic when the jamming is 
actually taking place in the code. Unfortunately, this action occurs in the pipeline error 
allocation stage, which can not utilize local statistics as a normal processor module such as 
a transmitter or queue would. 

Another option would have been to send the BER and a timestamp to a processor 
which can maintain local statistics. However, the only data which can leave a pipeline stage 
is assigned to the kernel variables described in the previous section, and each of those has 
a distinct purpose in the operation of the pipeline. 

In the end, global statistics are used to maintain the data. These are able to read 
data generated anywhere in the simulation, but must be initialized by generating a “global 
statistic handle”, which is to be maintained using a state variable. Pipeline stages have no 
mechanism for declaring state variables, so the handles are created as an array of handles 
in the ‘INIT state of the CP LLC sink module and externally declared in the error allocation 
C program. A global flag is also set when the handles are created to prevent the error 


allocation program from writing to an undeclared statistic. 


37 


Since each of the four pipelines uses the same error allocation stage, a distinction 
must be made between each pipeline for data collection purposes. The solution was to use 
the user id, a built-in, user-defined attribute assigned to each pipeline. For simplicity, the 
user id was assigned, at the network level, to the corresponding global statistic array index 
value, numbered 0 to 3. Meanwhile, the command link pipeline has a user id of 10, one 
order higher than any of the return link pipelines. Besides being set in the OPNET network 
model, the value is assigned as a constant in the error allocation stage for comparison 


purposes when saving statistical data. 


2. Link Status Statistics 
In the SP LLC source, two local statistics are added: RATIO_OUTSTAT and 
LINK_STATUS_OUTSTAT. These names are defined in the header file to correspond to 
two output statistic values, which in turn are probed to display the bad packet ratio and the 
link status (good/bad). RATIO OUTSTAT is the straightforward ratio, while 
LINK_STATUS_OUTSTAT is scaled to display a 0 or 1 for good or bad, respectively. 


3. Additional Changes 


Numerous lines of previously created data collection code have been commented 
out. The purpose of this was to shrink resulting vector files containing as much as 8 MB of 
data for a 10 second simulation run. It should be noted that global statistics, which account 
for most of the vector data in this case, are saved in a vector file each time a simulation is 
run, and do not need to be probed to be saved. To alleviate this, the OPNET modelling 
manual recommends using a condition flag to decide at runtime whether certain global 


statistics should be saved. 


G. RUNNING EXPERIMENTS 


Running experiments requires changes to two files: the environment file to be used, 


and the script file to be used. Examples of each are shown in Appendices F and G, 


38 


respectively. Environment file changes for link monitoring consist of altering attributes 
listed in section D of Chapter V. 

The purpose of the script file is to allow the user to run the simulation without using 
the OPNET graphical interface. This frees up valuable memory, and allows for background 
execution. It is recommended that only one simulation be run at a time because simulations 
running concurrently compete for resources, and this can lead to both simulations crashing 
with no useful data to show for the 30 minutes of execution time. However, the script file 
does allow for successive executions without user interaction. 

The script file in Appendix G is set up to run the same simulation executable, 
fddi_cdl.sim, four times. On each run, a different environment file is used, and the results 
are saved in a different vector file. The probe file and simulation duration are also specified 
on the command line. The shell environment variable, debug, can be used by the OPNET 
simulations to invoke the OPNET on-line debugger, but as this requires user interaction, it 
defeats the purpose of the script file. 

Lastly, there are two other requirements to ensure a smoothly running script file. First, 
the .sim file is an executable, so when executing the script, the .sim file must be in the 
current directory, or the entire path must precede the name of the executable in the script 
file. Secondly, an up-to-date env. db file must be present in SHOME/op. admin. If this file 


is not found, the simulation will not run at all. 
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V. MODEL EVALUATION 


A. OVERVIEW 

This chapter provides test runs to demonstrate the reliability of the OPNET computer 
model. The tests show a changing BER, the resulting monitoring packet error ratio, and the 
resulting link status changes. Additionally, parameters are varied to demonstrate the effects 


of history, hysteresis, and insertion rate on the overall link status. 


B. TESTING SCENARIO 

A baseline model was developed for the CDL in [10]. This model was used as the 
testbed for link monitoring testing. A minor change was required to reevaluate the load 
balancing algorithms, as well as adding a situation where all monitoring packets are 
directed to one specific multiplexer input. Otherwise, the original model code remained 
intact. 

Tests were only conducted on the return link, since monitoring is only needed on that 
link. For these tests, most attributes listed in the simulation environment file were retained 
from the baseline model. Any additionally required attributes were promoted to the 
environment file. In summary, any attribute which was varied for simulation purposes was 
put in the environment file. 

The 11 variable environment attributes listed in Section IV.E, as well as the two load 
balancing algorithms and the two jamming techniques, led to 28 different model runs to 
ensure reliability. For a basic reliability test, a periodic jamming pulse is introduced over 
al! four return link point-to-point links. Figure 16 shows the jamming pulse over one of the 
links, however the jamming is identical over all four links. The duration of each pulse is 
long enough to ensure that it would be detected by the monitoring system regardless of the 
parameter settings. Figures 17 and 18 represent the monitoring output in the form of the bad 
packet ratio over all four links, and the resulting link status (0-good, 1-bad). Clearly, these 


figures show that the basic model operates as expected. 
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Figure 16: Jamming Introduced for Basic Monitoring Test 
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Figure 17: Bad Packet Ratio for Basic Monitoring Test 
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Figure 18: Link Status for Basic Monitoring Test 


C. PARAMETER VARIATION EFFECTS 


Subsequent tests now need to verify that trends in certain attributes affect the model 
as expected. This is accomplished by varying only one attribute for 3-4 trials and 
comparing the results. For purposes of discussion, one set of data is presented to support 
each case; however, numerous data sets were evaluated to ensure reliable model 


performance. 


1. Insertion Rate 


As previously discussed, insertion rate has a tremendous impact on the resulting 
bad packet ratio, and, therefore, the overall monitoring scheme. It is assumed that insertion 
rate is directly proportional to the change in bad packet ratio: the faster the insertion rate, 
the quicker a change may occur in the ratio. To demonstrate that idea, four runs are shown 
in Figures 19 through 22. Each of these examples are exactly the same except that the 


insertion rate is decreased by a factor of 10 in each subsequent graph. 
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Figure 19: Insertion Period of 729 Microseconds 
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Figure 20: Insertion Period of 7.29 Milliseconds (ms) 
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Figure 21 
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Insertion Period of 729 ms 


Figure 22 


Figure 4 has an insertion rate of 1 monitoring frame every 729 microseconds. 
Assuming full utilization of the aggregate bandwidth, that equals one 5,000-bit monitoring 
frame for every 10 20,000-bit data frames, or an overhead of approximately 2.5%. 
Likewise, Figure 5 shows an insertion rate of 7.29 milliseconds, equalling .25% overhead, 
and so on. 

The jamming pulse used here cycles every 0.8 seconds with a 0.4 second pulse 
duration. Clearly Figure 19, with the highest insertion rate, has the best picture of the 
jamming. In Figure 20, slower response is evident due to the lower insertion rate, yet a 
decent picture is maintained. However, Figures 21 and 22 show increasingly severe cases 
of undersampling, where the monitoring frame insertion rate is so slow that the ratio can 
not accurately reflect the jamming. This conclusively shows the expected results of 


decreasing insertion rate, verifying the model for this attribute. 


2. History Length 


It is assumed that the history length is inversely proportional to the ratio rate of 
change: the longer the history, the less effect each monitoring frame has on the overall bad 
packet ratio. This fact can be verified by simple calculation, while the graphical 
representations shown in Figures 23, 24, and 25 show two characteristics related to 
increasing history length. 

Figure 23 is a scenario with a history length of 20, while Figures 24 and 25 show 
the same test run with history lengths of 30 and 40, respectively. The jamming is different 
over each of the four links, to simulate a widely varying jammer, while the monitoring 
packets are inserted in a round robin fashion. 

The first point of interest is the expected decrease in the rate of change in the ratio. 
At the same point in time, each successive graph takes slightly longer to register a drop in 
the jamming. This is a direct result of increasing history length. 

Of more significance is the fact that the rate of change for each successive run is 


only slightly lower than the previous run. One may assume the rate of ratio change should 
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Figure 25: History of Length 40 


be more significant, and it would, except that the increased history length brings the 
extreme values (high and low) closer. As a result, the packet ratio's trend changes more 
quickly than if the peaks were the same as a run with a smaller history. Although this 1s a 
benefit of longer histories, the closing of the peak values causes a significant impact on 
hysteresis and the determination of appropriate hysteresis bounds. 


In any case, it can be seen that the model accurately represents the effects of 
changing history length. 


3. Hysteresis Bounds 
The implementation of hysteresis is a simple comparison of the current bad packet 
ratio to bounds input into the simulation through the environment file. While that is not 
significant and can be visually evaluated, what is important is the effect hysteresis has on 


link status. 
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In a simple scenario, where jamming is fixed and periodic (not highly likely), 


hysteresis would have very little impact. Figure 26 which illustrates such a situation, shows 
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Figure 26: Hysteresis Used in Conjunction With Periodic Jamming 


that periodic jamming is accurately reflected in the bad packet ratio. Although this test run 
was conducted with hysteresis bounds of 0.5 and 0.3, it is easy to see that replacing the 
hysteresis with a single pivot value higher than 0.3 would actually improve the amount of 
time that the link would be declared good, as well as eliminate the need for any hysteresis. 

On the other hand, non-periodic jamming, as Figure27 shows, does not lend itself 
to a single pivot value. Here it can be seen that without hysteresis, but with a single pivot 
value set at 0.4, excessive oscillation would occur that could affect equipment performance 


and long term wear on circuitry. 


D. SUMMARY OF RESULTS 


Each of the previous examples shows that the OPNET computer model accurately 


converts changes in BER into a link monitoring ratio. In turn, this ratio is properly 


48 


о bad packet ratio 4 3 
© link status 


3.3 


time (sec) 


4 
A VERTI " 





Figure 27: Hysteresis Used in Conjunction With Non-periodic Jamming 


evaluated in a manner consistent with the proposed link monitoring mechanism. More 
specifically, significant characteristics of the modelled link monitoring mechanism behave 
as expected. Put together, these factors lead to the conclusion that the link monitoring 
system, as implemented in conjunction with the baseline OPNET CDL model, accurately 


reflects the link monitoring design presented in Section III of this thesis. 
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VI. OPNET TCP/IP MODELLING 


A. PURPOSE/SCOPE 

The long term goal of the OPNET network model is to integrate it with a working 
network, transport, and application layer in order to better measure user-to-user 
performance over the CDL. TCP/IP has been chosen for the model because of its 
widespread implementation. MIL 3 supplies a baseline TCP/IP model within an Internet 
model, but the TCP model is very simple in that it is based on the original 1981 TCP 
standard and has not integrated any of the improvements used in present-day TCP suites. 
These improvements include Karn's algorithm, Jacobsen header compression, and round- 
trip time estimation, among others. 

The work for this portion of the project is the first step towards full-scale integration 
of the CDL network model with TCP/IP. Additional changes are recommended to enhance 
the TCP model and change the application models into CDL-specific applications. 

The scope of this section is limited to OPNET code and model changes designed to 
integrate the CDL network model with the OPNET generic Internet model. No evaluations 


are conducted except to verify that the model runs correctly. 


B. SUMMARY OF CHANGES 


The changes to integrate the two models revolve entirely around communications 
between layers, primarily the network protocol (IP) and the data link protocol (FDDI LLC/ 
MAC layers). Since each model is self-contained, and substantial changes have been made 
to the network model, additional changes must be made to both models to work together 
properly. 

For instance, the basic Internet model station's IP layer is designed to communicate 
directly with the OPNET's basic FDDI MAC layer, as shown in Figure 28, while the 
integrated basic station model calls for an LLC layer between them as well as a 


substantially different MAC layer, shown in Figure 29. On the other hand, the CDL 
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Figure 28: Basic OPNET Internet Station Model 


network station model, previously shown in Figure 10, has no layers above the LLC, so all 
traffic is created and destroyed in the LLC instead of at the application layer. 

To alleviate communications problems, the OPNET data packets and Interface 
Control Information packets (ICIs) must be revamped to communicate correct and relevant 
data between the LLC and the MAC. Also, code must be introduced into the pertinent 


processor modules to enable usage of the new data packets and ICIs. 


C. PACKET/ICI FORMAT CHANGES 


In OPNET, data communication between any two processors is done by sending a 
packet and/or ICI to an adjoining processor through a stream. A packet is used to model the 


flow of actual data, while an ICI is used to model control information between layers. 
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Figure 29: Integrated CDL-TCP Basic Station Model 


OPNET allows direct packet communication between any two processors anywhere in the 
model, bypassing the streams, but utilizing this feature violates the model’s integrity and is 
discouraged. 

The first area of interest is the stream connecting the arp module to the llc source. 
Originally, the arp was designed to communicate directly with the MAC layer using a 
packet, ip dgram, and an ICI, ip mac req. These formats are satisfactory and are left 


intact, forcing the /lc source module to conform to the new inputs. 
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The llc source module used in the network CDL model transmits a packet using the 
fddi llc fr format, and an ICI using the fddi mac req format to the MAC layer. However, 
this packet did not conform to standards put forth in [11]. So, the packet was modified to 
contain the appropriate information, while all other data, still necessary to be passed to the 
MAC layer, was placed in the ICI. Figures 30 and 31 show the new packet, fddi llc fr tcp, 
and ICI, fddi mac req tcp. 
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Figure 30: LLC Frame Format fddi llc fr tcp 





Figure 31: LLC Source to MAC ICI Format fddi mac req tcp 
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Inside the MAC and physical layers, an OPNET packet is passed from station to 
station without an ICI. However, data not included in the MAC frame header, needed for 
FDDI performance calculations, must be transmitted with the data to be collected at the 
final destination. Normally, this information would be placed in an ICI, which in turn 
would be attached to the MAC frame. In this case, though, since there were only two pieces 
of data, the information was simply appended to the MAC frame format, as shown 1n Figure 


32. It is important to note that the fields in question, pri and cr. time, have a size of O bits. 
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Figure 32: FDDI MAC Frame Format fddi_mac_fr_tcp 


This is so the ponent of those fields will not be counted towards the total FDDI bits 
transmitted, transmission delay, or error calculations. 

Up from the MAC to the LLC sink, the same packet format is used as in Figure 30, but 
a different ICI is used. The new ICI format, fddi_mac_ind_tcp, (shown in Figure 33), is 
used because most of the fields passed in fddi mac req tcp pertain to the FDDI token and 
type of service. Most of this information is unnecessary above the MAC layer, although the 


pri and cr. time fields are still required for data collection. 


D. CODING CHANGES 
Changes were made to the following CDL network model files: 


*fíddi cdl.nt.m --» fddi cdl tcp2.nt.m 
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Figure 33: MAC to LLC Sink ICI Format fddi mac ind tcp 


efddi_station.nd.m --> inet fddinix.nd.m 
ecpni.nd.m --» cpni tcp.nd.m 

espni.nd.m --> spni_tcp.nd.m 

ecp fddi gen.pr.m --» cp fddi gen tcp.pr.m 
ecp fddi sink.pr.m --» cp fddi sink tcp.pr.m 
esp fddi gen.pr.m --» sp fddi gen tcp.pr.m 
esp fddi sink.pr.m --» sp fddi sink tcp.pr.m 
efddi тас.рг.т --> fddi mac stat5.pr.m 

ecp fddi mac.pr.m --» cp fddi mac tcp.pr.m 
esp fddi mac.pr.m --» sp fddi mac tcp.pr.m 


The network level changes consisted of new icons for each of the rings, and a different 
icon for each LAN station, as illustrated in Figures 34 and 35. Each non-bridging station in 
an inet fddinix node model as shown in Figure 29. The CP and SP bridging stations are 
shown in Figures 36 and 37, respectively. 

All coding changes for this model addition were done to implement the packet and ICI 
changes delineated in the previous section and are explicitly commented in the appendices. 


The only noteworthy changes occurred in the bridging stations. 
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Figure 34: TCP-enhanced CDL Network Model 


f IS 


өз £2 
Figure 35: TCP-enhanced FDDI Ring 


The bridging stations are unlike the basic ring stations in that they also use PPP. This 


means that the LLC source and sink on each station may be handling PPP frames, IP 
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Figure 36: TCP-enhanced CP Bridging Station 


datagrams, and LLC frames simultaneously. Furthermore, the added stream between the 
LLC source and sink requires special ICI formatting considerations. 

Many different situations arise because of the multiple formats entering and exiting the 
LLC. At the LLC source, each PPP frame could be a control frame, an LLC frame for the 
local LAN, or an encapsulated IP datagram for the bridging station. Likewise, LLC frames 
arriving at the LLC sink could be destined for the remote LAN or the higher layers of the 
bridging station. 

In the CDL network model, any LLC frame coming from the MAC uses fddi mac ind 
as its ICI format. However, from the LLC source to the sink, the ICI used is fddi тас гед. 
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Figure 37: TCP-enhanced SP Bridging Station 


This conflict is solved by new fields already added to the fddi mac ind tcp ICI. Due to 
changes already in place because of the new LLC frame format (Figure 30), all ICIs going 
into the LLC sink are identical, eliminating a significant portion of code. 

Another problem with the new LLC frame format can be seen as frames are 
transmitted over the CDL. As can be seen in Figure 3, once an LLC frame is transmitted to 
the remote LAN, there is no data field directly accessible to state the ultimate destination. 
An ICI would be beneficial, but the ICI would be tied to the transmission of the PPP- 


encapsulated LLC frame, and would have to be retrieved at the remote bridging station, 
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reinstalled to the decapsulated LLC frame, and then sent to the destination address. This is 
feasible, but cumbersome. 

A solution is found using the Kernel Procedure op_pk_ici_set. This procedure ties the 
ICI to the packet rather than the transmission event. Therefore, an fddi_mac_req_tcp ICI 
can be installed to the LLC frame, encapsulated in PPP, transmitted, decapsulated, and sent 
to the LLC source layer. There it can finally be accessed for proper routing of the LLC 


frame. 


E. CONCLUSION 


The TCP/IP changes are very basic, yet they involve every facet of the LLC source, 
LLC sink, and MAC layers. The changes are small and spread out throughout the code, but 
well documented. It is recommended that this model be used as the primary building block 
to achieve full TCP/IP functionality in the CDL network model. 
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VII. CONCLUSIONS AND RECOMMENDATIONS 


A. CONCLUSIONS 


In this thesis, we have presented and modelled a link monitoring mechanism for the 


CDL. The effectiveness of this mechanism is measured by normal test runs, and by varying 


critical monitoring parameters in order to demonstrate expected results. Additionally, 


changes are presented to integrate OPNET’s TCP/IP model with the existing CDL network 


model. 


Specifically, the contributions made by this thesis are as follows: 


1) 
2) 


3) 


4) 


5) 


We have identified the critical parameters relevant to the CDL status monitoring. 
We have successful shown their impact by implementing a monitoring 
mechanism in OPNET. 

We have identified how the monitoring mechanism can be fitted into the PPP and 
CDL network interface framework. 

We have integrated OPNET’s TCP/IP stack into the network interface and LAN 
station models. 

This thesis has also completed the gradual development of a remote LAN 


interconnection model in OPNET, setting the stage for detailed experimentation. 


B. RECOMMENDATIONS 


The link monitoring mechanism and TCP/IP framework presents a number of possible 


research avenues: 


1) 


2) 


3) 


Evaluation of HDLC bit-stuffing overhead over a multiplexed microwave link, 
such as the CDL. 

Experimentation with the link monitoring parameters to determine their optimal 
settings for dealing with potential jammers. 

Development of CDL-specific applications to attach to the OPNET computer 


model for further evaluation. 


4) Evaluation of CP output buffer size and implementation in conjunction with 


jamming and real-time data. 
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APPENDIX A 


RING 0 LLC_SRC MODULE CODE 
“cn fddi_gen.pr.c”’ 


/* Process model C form file: cp_fddi_gen.pr.c */ 
/* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

#include “cp_fddi_gen.pr.h” 
FSM_EXT_DECS 


/* Header block */ 

define MAC LAYER OUT STREAM 0 

4define LLC SINK OUT STREAM ] /*18APR94*/ 
/* define possible service classes for frames */ 

define FDDI SVC ASYNC 0 

define FDDI SVC SYNC 1 

/* define token classes */ 

#define FDDI_TK_NONRESTRICTED 0 

define FDDI TK RESTRICTED 1 


/* State variable definitions */ 


typedef struct 
| 
FSM SYS STATE 
Distribution* sv inter dist ptr; 
Distribution* sv len dist ptr; 
Distribution* sv dest dist ptr; 
Distribution* sv pkt priority ptr; 
Objid sv mac objid; 
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Objid 
int 

int 

int 

int 

int 

int 
double 
double 
double 
Ici* 
Ici* 
ІСІ" 
Packet* 


} cp_fddi_gen_state; 


#define pr_state_ptr 
#define inter_dist_ptr 
#define len_dist_ptr 
#define dest_dist_ptr 
#define pkt_priority_ptr 
#define mac_objid 
#define my_id 

#define low_dest_addr 
#define high dest addr 
*tdefine station addr 
ftdefine src. addr 

*define low pkt priority 
*define high pkt priority 
8define arrival rate 
*define mean pk len 
*define async mix 
*tdefine mac. iciptr 
#define mac_iciptrl 
#аебпе Пс ісі рії 
#define pkptrl 


SV_my_id; 

sv low dest addr; 
sv high dest addr; 
sv station addr; 

sv src addr; 

sv low pkt priority; 
sv high pkt priority; 
sv arrival rate; 

sv mean pk len; 

sv async mix; 

sv mac iciptr; 

sv mac iciptrl; 

sv llc ici ptr; 

sv pkptrl; 


((cp. fddi gen state*) SimI Mod State. Ptr) 
pr state ptr-»sv inter dist ptr 

pr state ptr-^»sv len dist ptr 

pr state ptr-^»sv dest dist ptr 

pr state ptr-»sv pkt priority ptr 
pr state ptr-^sv mac. objid 

pr state ptr-»sv my id 

pr state ptr-^sv low dest addr 
pr state ptr-^sv high dest addr 
pr state ptr-^»sv station addr 

pr state ptr-»sv src addr 

pr state ptr-»sv low pkt priority 
pr state ptr-»sv high pkt priority 
pr state ptr-»sv arrival rate 

pr state ptr-^sv mean pk len 

pr state ptr-»sv async mix 

pr state ptr-^»sv mac, iciptr 

pr state ptr-^sv mac iciptrl 

pr state ptr-»sv llc ici ptr 

pr state ptr-5»sv pkptrl 


/* Process model interrupt handling procedure */ 


void 
cp fddi gen () 
{ 


63 


Packet *pkptr, *ppp. pkptr; 


int 
int 
int 
int 
int 
int 


pklen; 

dest addr; 

i, restricted; 

pkt. prio; 

ppp pid h, ppp pid I; 
status; 


FSM ENTER (cp fddi gen) 


FSM BLOCK SWITCH 


/** state (INIT) enter executives **/ 

FSM, STATE ENTER UNFORCED (0, state0 enter exec, "INIT") 
{ 

/* determine id of own processor to use in finding attrs */ 

my id = op id self (); 


/* determine address range for uniform desination assignment */ 
op. ima obj attr get (my. id, "low dest address", &low dest addr); 
op ima obj attr get (my. id, "high dest address", &high dest addr); 


/* determine object id of connected ‘mac’ layer process */ 
mac_objid = op_topo_assoc (my_id, OPC_TOPO_ASSOC_OUT, 
OPC OBJMTYPE MODULE, MAC LAYER, OUT STREAM); 


/* determine the address assigned to it */ 
/* which is also the address of this station */ 
op. ima obj attr get (mac objid, "station address", &station, addr); 


/* set up a distribution for generation of addresses */ 
dest dist ptr - op dist, load ("uniform int", low dest  addr. 
high dest addr); 


/* added 26DEC93 */ 

/* determine priority range for uniform traffic generation */ 

op ima obj attr get (my. id, "high pkt priority", &high pkt priority); 
op ima obj attr get (my. id, "low pkt priority", &low pkt priority); 


/* set up a distribution for generation of priorities */ 
pkt_priority_ptr = op_dist_load ("uniform int",low. pkt priority, 
high pkt priority); 


/* above added 26DEC93 */ 


/* also determine the arrival rate for packet generation */ 
op. ima obj attr get (my. id, "arrival rate", &arrival rate); 


/* determine the mix of asynchronous and synchronous */ 
/* traffic. This is expressed as the proportion of */ 

/* asynchronous traffic. i.e a value of 1.0 indicates */ 

/* that all the produced traffic shall be asynchronous. */ 
op ima obj attr get (my id, "async mix", &async, mix); 


/* set up a distribution for arrival generations */ 

if (arrival rate !z 0.0) 

{ 

/* arrivals are exponentially distributed, with given mean */ 
inter_dist_ptr = op_dist_load (“‘constant’, 1.0 / arrival rate, 0.0); 


/* determine the distribution for packet size */ 
Op_ima_obj_attr_get (my_id, “mean pk length’, &mean_pk_len); 


/* set up corresponding distribution */ 
len_dist_ptr = op_dist_load (“‘constant’, mean_pk_len, 0.0); 


/* designate the time of first arrival */ 
fddi gen schedule (); 


/* set up an interface control information (ICI) structure */ 

/* to communicate parameters to the mac layer process */ 

/* (itis more efficient to set one up now and keep it */ 

/* as a state variable than to allocate one on each packet xfer) */ 
тас ісіріг - ор ici create ("fddi mac req"); 


} 
} 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (1,cp_fddi_gen) 
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/** state (INIT) exit executives **/ 
FSM_STATE_EXIT_UNFORCED (0, stateO_exit_exec, “INIT”’) 
{ 

} 


/** state (INIT) transition processing **/ 
FSM TRANSIT FORCE (1, statel_enter_exec, ;) 


/** state (ARRIVAL) enter executives **/ 

FSM STATE ENTER, UNFORCED (1, statel enter exec, "ARRIVAL") 
| 

/* This station should receive frames from the other lan as long as */ 
/* there are frames in the input streams addressed to this lan */ 
/*check if the interrupt type is stream interrupt *//*12APR94*/ 
if(op_intrpt_typeQ == OPC_INTRPT_STRM) 

{ 

/* if it is, get the packet in the input stream causing interrupt */ 
ppp_pkptr = op_pk_get(op_intrpt_strm()); 

op_pk_nfd_get (ppp_pkpt, “pid_h”,&ppp_pid_h); 

switch (ppp. pid h) 

{ 

case 0x00: /* data frame */ 

ор рк ша get (ppp. pkptr, FDDI frame", &pkptr1); 

op pk destroy (ppp pkptr); 

/* get the destination address of the frame */ 

/* 16APR94 */ 

op_pk_nfd_get(pkptl, “‘dest_addr’, &dest_addr); 

/* check if this frame destined for the local bridge station */ 
if(dest_addr == station_addr) 

/* if it is, send the packet to llc sink directly */ 

/* in order to prevent overhead of mac access */ 

op. pk send(pkptrl, LLC. SINK OUT. STREAM);/* 19APR94*/ 
else 

/* this packet is to send to mac */ 

{ 

/* determine the source address of the frame */ 

op. pk nfd get(pkptrl, "src addr", &src_addr); 


/* set up an ICI structure to communicate parameters to */ 
/* MAC layer process */ 
mac iciptrl- op ici create("fddi mac req"); 
/* place the original source address into the ICI *//* 16APR94 */ 
/* “fddi_mac_req” is modified so that it contains the original */ 
/* source address from the remote lan */ 
Op ici attr set(mac iciptrl, "src addr'", src_addr); 
/* place the destination address into the ICI */ /*12APR94*/ 
Op ici attr set(mac, iciptrl, "dest addr'", dest addr); 
/* assign the service class and requested token class */ 
/* At this moment the frames coming from the remote lan are assumed to have*/ 
/* the same priority as synchronous frames in order not to accumulate */ 
/* packets on the bridge station mac and instead to deliver their destinations */ 
/* as soon as possible */ 
op. pk nfd set(pkptrl, "pri", 8); 
op ici attr set(mac iciptrl, "svc class", FDDI SVC SYNC); 
ор ісі айт set(mac iciptrl, "pri", 8); 
op ici attr set(mac iciptrl, "tk class", FDDI TK NONRESTRICTED); 
/* send the packet coupled with the ICI */ 
op ici install(mac iciptr1); 
op pk send(pkprl, MAC LAYER OUT STREAM); 
} 
break; 


case OxcO: /* ppp control packet - either LOR or monitoring pkt*/ 
/* Since the command link is deemed unjammable, this should */ 
/* only be for LOR's. Simply delete them for now until a*/ 

/* policy is determined on how to handle the LOR's.*/ 

op. pk nfd get (ppp pkpu, "LOR info", &status); 

printf (LOR received at cp “‘); 

switch (status) 

{ 

case 0: printf (“status GOOD trend DOWN\n”); 

case 1: printf (“status GOOD trend UP\n”’); 

case 2: printf (“status BAD tend DOWN\n’”), 

case 3: printf (“status BAD tend UP\n”); 

} 


op pk destroy (ppp. pkptr); 
break; 


default: 


printf (ERROR: packet rcvd at cp: neither data nor controNn'); 
break; 
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} /* end switch */ 

) /* end if (op. intrpt type)22OPC, INTRPT STRM) */ 
/* otherwise, generate the frame :12APR94 */ 

else 

{ 

/* determine the length of the packet to be generated */ 
pklen = op_dist_outcome (len_dist_ptr); 


/* determine the destination */ 

/* dont allow this station’s address as a possible outcome */ 
gen_packet: 

dest_addr = op_dist_outcome (dest_dist_ptr); 

if (dest_addr != -1 && dest_addr == station_addr) 

goto gen packet; 


/* 26DEC94 & 29JAN94: determine its priority */ 
pkt_prio = op_dist_outcome (pkt_priority_ptr); 


/* create a packet to send to mac */ 
pkptr = op. pk create fmt ("fddi llc fr"); 


/* assign its overall size. */ 
op_pk_total_size_set (pkptr, pklen); 


/* assign the time of creation */ 
op pk nfd set (pkptr, "cr time", op sim time ()); 


/* place the destination address into the ICI */ 
/* (the protocol type field will default) */ 
Op ici attr set (mac iciptr, "dest addr", dest. addr); 


/* place the source address into the ICI *//* 17APR94*/ 
Op ici attr set (mac iciptr, "src addr", station  addr); 


/* assign the priority, and requested token class */ 

/* also assign the service class; 29JANO94: the fddi llc fr */ 

/* format is modified to include a “pri” field. */ 

if (op dist uniform (1.0) «z async, mix) 

{ 

op_pk_nfd_set (pkpt, “pri”, pkt prio); /* 29JAN94 */ 

Op ici attr set (mac iciptr, "svc class", FDDI_SVC_ASYNC); 
ор ісі айт set (mac iciptr, "pri", pkt prio); /* 29JAN94 */ 

) 


68 


else{ 

op_pk_nfd_set (pkptr, “pri’’, 8); /* 29JAN94 */ 

Op ici attr set (mac iciptr, "svc class", FDDI SVC SYNC); 
ор ісі апт set (mac iciptr, pri", 8); /* 29JANO94 */ 

} 


/* Request only nonrestricted tokens after transmission */ 
Op ici attr set (mac, iciptr, "tk class", FDDI TK NONRESTRICTED), 


/* Having determined priority, assign it; 26DEC93 */ 
/* op ісі айт set (mac, iciptr, "pri", pkt prio); */ 


/* send the packet coupled with the ICI */ 

ор. ісі install (mac  iciptr); 

/* check if destination address is in the remote lan */ 
if(dest_addr > 9) 

/* if it is, this packet is to send Uc_sink directly */ 

op. pk send (pkptr, LLC SINK OUT STREAM); /*18APR94*/ 
else 

/* if not, the packet is destined for local lan, so send to mac */ 

op pk send (pkptr, MAC LAYER, OUT STREAM); 


/* schedule the next arrival */ 

fddi gen schedule (); 

) /* end else (if opc. intrp typeO2-OPC INTRPT STRM) */ 
} 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (3,cp_fddi_gen) 


/** state (ARRIVAL) exit executives **/ 
FSM_STATE_EXIT_UNFORCED (1, statel_exit_exec, ““ARRIVAL’’) 
{ 

) 


/** state (ARRIVAL) transiuon processing **/ 
FSM_TRANSIT_FORCE (1, statel_enter_exec, ;) 
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FSM_EXIT (0,cp_fddi_gen) 
} 


void 

cp fddi gen svar (prs_ptr,var_name,var_p_ptr) 
cp. fddi gen state*prs ptr; 
char *уаг пате, **уаг р рі; 


{ 
FIN (cp_fddi_gen_svar (prs_ptr)) 


*var_p_ptr = VOS_NIL; 
if (Vos String Equal ("inter dist ptr", var name)) 
*var p. ptr — (char *) (&prs ptr-»sv inter dist ptr); 
if (Vos String Equal ("len dist ptr", var name)) 
*var p ptr — (char *) (&prs ptr-»sv len dist ptr); 
if (Vos String Equal ("dest dist ptr" , var name)) 
*var p ptr — (char *) (&prs ptr-5sv dest dist ptr); 
if (Vos String Equal ("pkt priority ptr", var name)) 
*var p ptr — (char *) (&prs ptr-»sv pkt priority ptr); 
if (Vos String Equal ("mac objid" , var. name)) 
*var p ptr — (char *) (&prs ptr-»sv mac, objid); 
if (Vos String Equal (*my. id", var name)) 
*var p ptr — (char *) (&prs ptr-»sv. my. id); 
if (Vos, String Equal ("low dest addr", var name)) 
*var p. ptr - (char *) (&prs ptr-»sv. low dest. addr); 
if (Vos String Equal ("high dest addr'", var пате)) 
*var p ptr — (char *) (&prs ptur-»sv high dest, addr); 
if (Vos String Equal ("station addr" , var name)) 
*var p. ptr — (char *) (&prs ptr-»sv, station, addr); 
if (Vos String Equal ("src addr", var name)) 
*var p ptr - (char *) (&prs  ptr-5»sv src addr); 
if (Vos String Equal ("low  pkt priority" , var. name)) 
*var p ptr — (char *) (&prs ptr-»sv low pkt priority); 
if (Vos String Equal ("high pkt priority" , var. name)) 
*var p ptr —- (char *) (&prs ptr-»sv high pkt priority); 
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if (Vos String Equal ("arrival rate" , var name)) 

*var p ptr - (char *) (&prs ptr-»sv. arrival rate); 
if (Vos String Equal (mean pk len" , var name)) 

*var p ptr — (char *) (&prs ptr-^»sv mean pk len); 
if (Vos String Equal ("async mix" , var name)) 

*var p. ptr — (char *) (&prs ptr-»5sv. async mix); 
if (Vos String Equal (mac, iciptr" , var name)) 

*var p ptr — (char *) (&prs_ptr->sv_mac_iciptr); 
if (Vos String Equal (*mac, iciptrl" , var name)) 

*var p ptr —- (char *) (&prs ptr-»sv mac iciptr1); 
if (Vos String Equal ("llc ici ptr", var name)) 

*var p. ptr 2 (char *) (&prs ptr-»sv llc ici ptr); 
if (Vos String Equal ("pkptr1" , var name)) 

*var p. ptr — (char *) (&prs_ptr->sv_pkptrl); 


FOUT, 
) 


void 
cp_fddi_gen_diag () 
{ 
Packet *pkpt, *ppp_pkpt; 
int pklen; 
int dest_addr; 
int i, restricted; 


int pkt_prio; 
int ppp. pid h, ppp. pid I 
int status; 


FIN (cp. fddi реп Шар ()) 


FOUT, 


void 
cp_fddi_gen_terminate () 
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{ 

Packet *pkptr, *ppp. pkptr; 
int pklen; 

int dest addr; 

int i, restricted; 


int pkt prio; 
int ppp. pid h, ppp pid |І; 
int status; 


FIN (cp. fddi gen terminate ()) 


FOUT, 


Compcode 
cp_fddi_gen_init (pr_state_pptr) 


NIL) 


cp fddi gen state**pr state pptr; 


{ 
static VosT_Cm_Obtypeobtype = OPC_NIL; 


FIN (cp_fddi_gen_init (pr_state_pptr)) 


if (obtype == OPC_NIL) 
{ 
if (Vos: Catmem, Register ("proc state vars (cp. fddi gen)", 
sizeof (cp. fddi gen state), Vos Nop, &obtype) — VOSC FAILURE) 
FRET (OPC COMPCODE FAILURE) 


) 
if ((*pr state pptr —- (cp. fddi gen state*) Vos Catmem Alloc (obtype, 1)) == OPC_- 


FRET (OPC. COMPCODE. FAILURE) 
else 


[ 

(*pr state pptr)-»current, block - 0; 
FRET (OPC COMPCODE SUCCESS) 
) 
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/* static added 2DEC93, on advice from MIL3 */ 
static 
fddi_gen_schedule () 


| 


doubleinter time; 


/* obtain an interarrival period according to the */ 
/* prescribed distribution */ 
inter time — op dist outcome (inter dist ptr); 


/* schedule the arrival of next generated packet */ 
op intrpt schedule self (op sim time () — inter time, 0); 
) 
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APPENDIX B 


ERROR ALLOCATION PIPELINE STAGE CODE 
*cdl pt error.ps.c" 


/* cdl pt error.ps.c */ 
/* Customized error allocation model for point-to-point link transceiver pipeline */ 


ЕЕЕ ЖЕ ЖЕЖ ЕЖ жаа а аа а ы 


/* Last modified : 29MAR94, 4APR94,22APR94,20AUG94 */ 

ЕЕЕ ж ка а а ааа а 

#include <opnet.h> 

#include <math.h> 

/*20AUG94 - monitor jamming using global statistics set up in cp_ fddi_sink*/ 
/*send stats out only on links with id < COMMAND. LINK (user id of cmd link)*/ 
/* All links on the downward path should be monitored*/ 

externint jammer stats init; 

extern Gshandlelink gshandle[4]; 

/* Define a convenient macro for computing */ 

/* factorials using the gamma function. */ 

#define log_factorial(n)lgamma ((double) n+ 1.0) 


void cdl_pt_error (pkptr) 
Packet* pkpt; 
{ 
Objid link objid; 
double ре, г, р ассит, р exact; 
double log _pl,log_p2, log arrange; 
double duty_cycle; /*31MAR94 */ 
double jam_length, jam_ber,int_bet_jamlen, ber_bet_jamlen;/*29MAR94*/ 
double time stamp; /* time stamp for the packet arriving time */ 
double offset; /* JAPRO94 */ 


int invert errors z OPC. FALSE, seg. size, num errs; 

int jammer_type;/*26APR94*/ 

/*int channel_index;*//* 4APR94 */ 

int user_id; /* 20AUG94 - link id number defined in network model*/ 
int COMMAND LINK = 10; 
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/** Compute the number of errors assigned to the given packet **/ 
/** based on its length and the bit error probability. **/ 
FIN (cdl pt error (pkptr)) 


/*Make a time stamp to see whether the packet is in jamming period or not */ 
time stamp — op. sim time(); /*printf("time stamp — %16.12f\n", time_stamp);*/ 


/* Obtain object id of point-to-point link carrying transmission. */ 
link objid 2op td get int (pkptr, OPC TDA PT LINK OBJID); 
/* Obtainthe channel index for the particular link */ 
/* Determine which channel the packet is on *//*30M AR */ 
/* channel index -op td get int (pkptr, OPC TDA PT CH INDEX);*//*4APR94*/ 
/* Obtain the bit-error probability of the channel. */ 
/* op ima obj attr get (link objid, "ber", &pe); *//*ignore this attribute 3 IMAR94*/ 
/* Obtain the extended attributes for the point-to-point link */ 
/* These attributes are appended in order to simulate jamming features */ 
/ж 29М.АК94 “/ 
op_ima_obj_attr_get (link_objid, "jam_length", &jam_length); 
op ima obj attr get (link objid, "jam ber", &jam ber); 
op ima obj attr get (link objid, "interval bet jam len", &int bet jamlen); 
op ima obj attr get (link objid, "ber bet jam len", &ber bet jamlen); 
op. ima obj attr get (link objid, "init jam offset", &offset); 
op ima obj attr get (link objid, "jammer type", &jammer. type); 
op ima obj attr get (link objid, "user id", &user. id); 
/* Obtainthe length of the packet. */ 
seg size-— op pk total size get (pkptr); 
/* Determine the jammer type in use:26APR94 */ 
/* Check if pulsed jammer is in use */ 
if (jammer_type == 0) 
{ 
/* Randomize the jamming durations */ 
/* These durations are randomized with uniform distribution */ 
/* inrange [0, duration[. User should be aware of these */ 
/* attributes specified in the environment file. They are max values */ 
/* for those particular durations */ 
jam_length = op dist uniform(jam length); 
іп bet. jamlen - op. dist uniform(int bet jamlen); 
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} 


/* Otherwise, channel swept jammer is inuse. Jamming durations */ 
/* should not be randomized to keep consecutive pulses in order. */ 
/* Compute duty cycle for jamming */ 
duty_cycle = jam_length + int_bet_jamlen; 
/* Check time stamp if itis in the initial jam offset period */ 
/* All BER’s are uniformly distributed in range [0, ber[, so that */ 
/* realistic representation is provided; User should be aware of */ 
/* these attributes specified in the environment file. They are max values */ 
/* for those particular bers*/ 
if (time_stamp < offset) 
{ 
pe=op_dist_uniform(ber_bet_jamlen); /* the packet is still not in the jamming period */ 


if ((jammer_stats_init==OPC_TRUE)&& (user_id < COMMAND_LINK)) 
op_stat_global_write (link_gshandle[user_id], pe); 


else 

{ 

/* Check packet is in jamming period */ 

if (fmod(time stamp,duty. cycle) «- jam, length ) 
{ 
pe-op. dist uniform(jam ber); /* the packet is in jamming period, */ 
/* random "pe" to be computed as jam_ber */ 
if (gammer_stats_init==OPC_TRUE)&& (user_id < COMMAND _LINK)) 

op stat global write(link gshandle[user id], pe); 


else 
{ 
pe = op_dist_uniform(ber_bet_jamlen); /* packet is in unjammed period */ 
/* random "pe" to be computed as ber bet jamlen */ 
if ((Gammer. stats init--OPC, TRUE) && (user. id « COMMAND LINK)) 
op. stat global write (link gshandle[user. id], pe); 
} 


/*This part computes num_errs for the packet */ 
/* Case 1: if the bit error rate is zero, so is the number of errors. */ 
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if (pe = 0.0 Il seg_size == 0) 
num_errs = Q; 
/* Case 2: if the bit error rate is 1.0, then all the bits are in error. */ 
/* (note however, that bit error rates should not normally exceed 0.5).*/ 
else if (pe >= 1.0) 
num_eirs =seg_size; 
/* Case 3: The bit error rate is not zero or one. */ 
else 
{ 
/* If the bit error rate is greater than 0.5 and less than 1.0, invert*/ 
/* the problem to find instead the number of bits that are not in error*/ 
/* in order to accelerate the performance of the algorithm. Seta flag*/ 
/* to indicate that the result will then have to be inverted.*/ 
if (pe > 0.5) 
{ 


pez 1.0- pe; 
invert errorsz OPC TRUE; 
} 


/* The error count can be obtained by mapping a uniform random number */ 
/* in (0, 1[ via the inverse of the cumulative mass function (CMF) */ 
/* for the bit error count distribution. */ 
/* Obtain a uniform random number in [0, 1[ to represent */ 
/* the value of the CDF at the outcome that will be produced. */ 
r=op_dist_uniform (1.0); 
/* Integrate probability mass over possible outcomes until r is exceeded. */ 
/* The loop iteratively corresponds to "inverting" the CMF since it finds*/ 
/* the bit error count at which the CMF first meets or exceeds the value r.*/ 
for (p. accum z 0.0, num errs 2 0; num errs «- seg, size; num errs4-) 
{ 
/* Compute the probability of exactly ’num_errs’ bit errors occurring.*/ 
/* The probability that the first 'num errs' bits will be in error */ 
/* is given by pow (pe, num errs). Here it is obtained in logarithmic*/ 
/* form to avoid underflow for small 'pe' orlarge 'num errs  jam'.*/ 
log plz (double) num errs * log (pe); 
/* Similarly, obtain the probability that the remaining bits will not */ 
/* bein error. The combination of these two events represents one */ 
/* possible configuration of bits yielding a total of ‘num_erts’ errors. */ 
log p2- (double) (seg. size- num_errs) * log (1.0 - pe); 
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/* Compute the number of arrangements that are possible with the same */ 
/* number of bits in error as the particular case above. Again obtain */ 
/* this number in logarithmic form (to avoid overflow in this case).*/ 
/* This result is expressed as the logarithmic form of the formula for*/ 
/* the number N of combinations of k items from n: N 2 n!/(n-k)!k!*/ 
log arrange -log factorial(seg size)- 
log factorial (num errs) - 
log factorial(seg size - num, errs); 
/* Compure the probability that exactly 'num errs' are present */ 
/* in the segment of bits, in any arrangement.*/ 
p_exact =exp (log arrange +log pl+log_p2); 
/* Add this to the probability mass accumulated so far for previously */ 
/* tested outcomes to obtain the value of the CMF at outcome = num_errs.*/ 
p_accum += p_exact; 
/*'num errs jam' is the outcome for this trial if the CMF meets or exceeds */ 
/* the uniform random value selected earlier. */ 
if (p_accum >=r) 
break; 
} 
/* If the bit error rate was inverted to compute correct bits instead, then */ 
/* reinvert the result to obtain the number of bits in error. */ 
if(invert errors Z2 OPC. TRUE) 
num eirs-—seg size- num eirs; 
) 
/*printf("num_of_errors = %5d\n", num_errs);*/ 
/* Set number of bit errors in packet transmission data attribute. */ 
op. td. set int (pkptr, OPC TDA PT NUM ERRORS, num errs); 
FOUT 
} 
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APPENDIX C 


RING 0 LLC_SINK MODULE CODE 
"cp. fddi sink.pr.c" 


/* Process model C form file: cp fddi sink.pr.c */ 
/* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

#include “cp_fddi_sink.pr.h” 
FSM_EXT_DECS 


/* Header block */ 

/* Globals */ 

/* array format installed 20JAN94; positions 0-7 represent the asynch priority levels, PRIORITIES 
+] */ 

/* represents synch traffic, and grand totals are as given in the original. */ 


#define PRIORITIES 8 /* 20JAN94 */ 

#define XMITTER ONEO /*10MAY94*/ 
#define XMITTER TWOI 

#define ХМІТТЕК ТНКЕЕ2 

#define XMITTER_FOUR3 


Static /* OSFEB94 */ 

double fddi_sink_accum_delay = 0.0; 

static /* OSFEB94 */ 

double fddi_sink_accum_delay_a[PRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0, 0.0}; 

static /* OSFEB94 */ 

int fddi_sink_total_pkts = 0; 

static /* OSFEB94 */ 

int fddi sink total pkts a[PRIORITIES - 1] = {0, 0, 0, 0, 0, 0, 0, 0, 0); 

static /* OSFEB94 */ 

double fddi_sink_total_bits = 0.0; 

Static /* OSFEB94 */ 

double fddi sink total bits a[PRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
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0.0}; 
Static /* OSFEB94 */ 
double fddi_sink_peak_delay = 0.0; 


static /* OSFEB94 */ 

double fddi_sink_peak_delay_a[PRIORITIES + 2] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0}; 

static /* OSFEB94 */ 

int fddi_sink_scalar_write = 0; 

static /* OSFEB94 */ 

int pri_set = 20; /* 20JAN94 */ 

static 

int subq_index = 0; /* SAPR94 */ 

Static 

double buffer[4]={0.0,0.0,0.0,0.0}; /* LOMAY94*/ 


/* statistics used for CDL throughput */ 


static /* 20APR94 */ 

int fddilpl total pkts - 0; 

Static 

int fddilp1_total_pkts_a[PRIORITIES + 1] = {0, 0, 0, 0, 0, 0, 0, 0, 0}; 

static 

double fddilpl total bits = 0.0; 

static 

double fddilpl total bits a[PRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0}; 


/* Externally defined globals. */ 
extern doublefddi t opr []; 


/* 12JANO94:attributes from the Environment file */ 
double Offered Load; /* 127AN94 */ 
double Asynch, Offered Load; /* 12)AN94 */ 


/* transition expressions */ 
#define END OF SIM op intrpt type() == OPC_INTRPT_ENDSIM 


/* get picture of jamming. this variable allows anyone who*/ 
/* is writing to the global statistic to ensure it has */ 

/* been initialized. 20AUG94*/ 

int jammer. stats init-OPC FALSE; 

Gshandle link gshandle[4]; 


/* State variable definitions */ 


80 


typedef struct 
{ 
FSM_SYS_STATE 
Gshandle sv_thru_gshandle; 
Gshandle sv_m_delay_gshandle; 
Gshandle sv_ete_delay_gshandle; 
Gshandle sv thru gshandle a[10]; 
Gshandle sv m delay. gshandle a[10]; 
Gshandle sv. ete delay gshandle a[9]; 
Gshandle sv. t gshandle; 
Gshandle sv t gshandle a[10]; 
Objid sv my id; 
int sv PPP seq number; 
double sv. time; 
) cp fddi sink state; 


#define pr. state, ptr ((cp. fddi sink state*) SimI, Mod State. Ptr) 
#define thru_gshandle pr_state_ptr->sv_thru_gshandle 

#define m_delay_gshandle pr_state_ptr->sv_m_delay_gshandle 
#define ete_delay_gshandle pr_state_ptr->sv_ete_delay_gshandle 
#define thru_gshandle_a pr_state_ptr->sv_thru_gshandle_a 

#define m_delay_gshandle_a pr_state_ptr->sv_m_delay_gshandle_a 
#define ete_delay_gshandle_a pr_state_ptr->sv_ete_delay_gshandle_a 


#define t_gshandle pr_state_ptr->sv_t_gshandle 
#define t_gshandle_a pr_state_ptr->sv_t_gshandle_a 
#define my_id pr_state_ptr->sv_my_id 

#define PPP_seq_number _ pr_state_ptr->sv_PPP_seq_number 
#define time pr_state_ptr->sv_time 


/* Process model interrupt handling procedure */ 


void 

cp fddi sink () 
{ 
double delay, creat_ume; 
Packet* pkptr; 
Packet* pkptr1 ; /*SAPR94*/ 
Packet* ppp. pkptr;/* 15JUN94*/ 
int src addr, my addr; 
int dest addr;/*14APR94*/ 
Ici* from mac, ici ptr; 
double fddi sink ttrt; 
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int xmit_subq_index;/*5APR94*/ 

int load_balance_cade; /*6APR94*/ 

int i,subq_no; /*25APR94*/ 

int index; /* 10M AYO4A */ 

double link mon trans rate; /*15JUN94*/ 

char — strO[512], str1 [512]; /* for diagnostics */ 
int mon pkt size; /*26JUL */ 

double sim duration; /*26JUL */ 


FSM. ENTER (cp. fddi sink) 


FSM BLOCK SWITCH 


/** state (DISCARD) enter executives **/ 
FSM_STATE_ENTER_UNFORCED (0, state0 enter exec, "^DISCARD") 
{ 
/* determine type of interrupt: 1OMAY94 */ 
switch (op_intrpt_type()) 
{ 
case OPC_INTRPT_STAT: 
/* the interrupt is caused by the transmitters’ status */ 
{ 
index = op_intrpt_stat(); 
switch(index) 
{ 
case XMITTER_ONE: 
{ 
buffer[0] = op_stat_local_read(XMITTER_ONE); 
break; 
} 
case XMITTER_TWO: 
{ 
buffer[1] 2 op. stat local read(XMITTER TWO); 
break; 
} 
case XMITTER_THREE: 
{ 
buffer[2] = op_stat_local_read(XMITTER_THREE); 
break; 
} 
case XMITTER_FOUR: 
{ 
buffer[3] = op_stat_local_read(XMITTER_FOUR); 
break; 
} 
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default: 


{ 
op sim end("*** FDDI-CDL : FATAL ERROR","Unexpected stat 


interrupt , "y 


} 


} 
break; 


} 
case OPC_INTRPT_STRM: 
/* the interrupt is caused by the incoming packets */ 
{ 
/* get the packet and the interface control info */ 
pkptr = op_pk_get (op_intrpt_strm ()); 
from_mac_ici_ptr = op intrpt ici 0); 


/* 20JAN94: get the packet’s priority level, which */ 

/* will be used to index arrays of thruput and delay */ 

/* computations. */ 

/* pri_set = op_pk_prionty_get (pkptr); doesn’t work here */ 
op. pk nfd get (pkptr, "pri", &pri_set); /* 29JAN94 */ 


/* determine the time of creation of the packet */ 
Op. pk nfd get (pkptr, "cr time", &creat time); 


/* 18APR94:determine the destination address of the packet */ 
op_pk_nfd_ get (pkptr, “‘dest_addr’, &dest_addr); 


/* 20APR94:determine the source address of the packet */ 
op_pk_nfd_get (pkptr, “src_addr’”, &src_addr); 


/* 7APR94: determine which load balancing algorithm is in use */ 
Op_ima_obj_attr_get ( my. id, "load balancing algorithm", &load balance code ); 


/* 14APR94 : also get my own address */ 
op_ima_obj_attr_get ( my_id, “station_address”, &my_addr); 


/* destroy the packet */ 

/* op_pk_destroy (pkptr); */ 

/* 0O3FEB94: rather, enqueue the packet. This will be the */ 
/* first step toward developing a LAN bridging structure. */ 
/* -Nix */ 

/* op subq pk. insert (pri_set, pkptr, OPC_QPOS_ TAIL); */ 


/* 14APR94: check the frame passed to "llc" is destined for */ 

/* this station. If it is destroy the packet and update the local traffic */ 
/* statistics; if not, allocate the packets */ 

/* to the transmitters since they are destined for the remote lan */ 
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/* update also incoming return link statistics for the frames */ 
/* which will be queued in llc sink to be sent to remote lan.*/ 
/* -Karayakaylar */ 


if((dest_addr == my_addr)&&(src_addr < my_addr)) 
{ 
/* add in its size */ 
fddi_sink_total_bits += op_pk_total_size_get (pkptr); 
fddi sink total bits a[pri set] += op_pk_total_size_get (pkptr); /* 20JAN-20APR94 */ 


/* accumulate delays */ 

delay = op_sim_time () - creat_time; 

fddi_sink_accum_delay += delay; 

fddi sink accum, delay a[pri set] += delay; /* 20JAN-20APR94 */ 


/* keep track of peak delay value */ 
if (delay » fddi sink peak delay) 
fddi sink peak delay - delay; 


/* 20JAN94: keep track by priority levels as well 23JAN-20APR94 */ 
if (delay > fddi sink peak delay. a[pri set]) 
fddi sink peak delay a[pri set] - delay; 


op. pk destroy (pkptr); 


/* increment packet counter; 20JAN94 */ 
fddi_sink_total_pkts++; 
fddi_sink_total_pkts_a[pri_set]++; 


/* if a multiple of 25 packets is reached, update stats */ 
/* 03FEB94: [0]->[7] represent asynch priorities 1->8, */ 
/* respectively; [8] represents synchronous traffic, */ 
/* and [9] represents overall asynchronous traffic.-Nix */ 
/*if (fddi_sink_total_pkts % 25 == 0) 

{ 

op_stat_global_wnite (thru_gshandle, 

fddi sink total bits / op sim time ()); 


op Stat global write (thru gshandle a[pri. set], 
fddi sink total bits, a[0] / op sim time()); 
op. stat global write (thru gshandle. a[0], 
fddi sink total bits a[1] / op. sim time()); 
op. stat global write (thru gshandle a[(1], 
fddi sink total bits a[pri set] /op sim time()); 
op stat global write (thru gshandle a[2], 
fddi sink total bits a[2] / op sim time()); 
op stat global write (thru gshandle a[3], 


84 


fddi sink total bits a[3] / op sim time()); 
op stat global write (thru, gshandle a[4], 
fddi sink total bits a[4] / op sim timeQ); 
op stat global write (thru. gshandle, a[5], 
fddi sink total bits a[5] / op sim timeQ); 
op stat global write (thru gshandle a[6], 
fddi sink total bits a[6] / op sim time()); 
op stat global write (thru gshandle a[7], 
fddi sink total bits a[7] / op sim time(); 
op stat global write (thru gshandle a[8], 
Гай sink total bits a[8] / op sim пте()); 
B/ 
/* 30JAN94: gather all asynch stats into one overall figure */ 
/*op stat global write (thru gshandle a[9], 
(fddi sink total bits - fddi sink total bits a[8]) / 
op sim time()); 
=) 


/* (fddi sink total bits а[0] + fddi sink total bits a[1] + */ 
/* fddi sink total bits a[2] * fddi sink total bits a[3] + */ 
/* fddi sink total bits a[4] 4 fddi sink total bits a[5]  */ 
/* fddi sink total bits a[6] 4 fddi sink total bits a[7]) / */ 
/* op sim time(); */ 


/% 
op_stat_global_write (m_delay_gshandle, 
fddi sink accum delay / fddi sink total pkts); 


op stat global write (m delay gshandle. a[0], 

fddi sink accum delay. a[0] / fddi sink total pkts a[0]); 
op stat global write (m delay. gshandle, a[1], 

fddi sink accum delay a[l1]/fddi sink total pkts a[1]); 
op stat global write (m delay, gshandle. a[2], 

fddi sink accum, delay. a[2] / fddi sink total pkts a[2]); 
op stat global write (m delay. gshandle, a[3], 

fddi sink accum delay. a[3] / fddi sink total pkts a[3]); 
op stat global write (m delay gshandle, a[4]. 

fddi sink accum delay. a[4] / fddi sink total pkts. a[4]); 
op stat global write (m delay, gshandle, a[5]. 

fddi sink accum delay a[5]/fddi sink total pkts a[5]); 
op stat global write (m delay. gshandle, a[6]. 

fddi sink accum delay. a[6] / fddi sink total pkts a[6]); 
op. stat global write (m delay gshandle, a[7]. 

fddi sink. accum delay a[7] /fddi sink total pkts a[7]); 
op stat global write (m delay. gshandle a[8], 

fddi sink accum delay a[8]/ fddi sink total pkts a[8]); 

27 


85 


/* 30JAN94: gather all asynch stats into one figure */ 
/*op stat global write (m delay gshandle a[9], 
(fddi sink accum delay - fddi sink accum, delay. a[8]) / 
(fddi sink total pkts - fddi sink total pkts a[8])); 
M 


/* (fddi sink, accum, delay. a[0] 4 fddi sink accum delay a[1]- */ 
/* fddi sink accum delay. a[2] * fddi sink accum delay. a[3] 4 */ 
/* fddi sink accum delay a[4] * fddi sink accum, delay, a[5] *- */ 
/* fddi sink accum delay. a[6] 4 fddi sink accum delay a[7]) / */ 
/* (fddi sink total pkts a[0] - fddi sink total pkts a[1] + */ 
/* fddi sink total pkts a[2] 4 fddi sink total pkts a[3] 4 */ 
/* fddi sink total pkts a[4]  fddi sink total pkts a[5] — */ 
/ж fddi sink total pkts a[6] - fddi sink total pkts a[7])); */ 


/* also record actual delay values */ 
/*op stat global write (ete delay gshandle, delay); 
op stat global write (ete delay gshandle a[pri set], delay); 
} 
si 
) /* end of if(dest addr 22 my addr)&&(src addr « my. addr) statement */ 


/* 20A PR94:destroy the packets coming from the remote lan destined for this*/ 
/* station. These packets are not counted for local traffic.*/ 
/*else */if(dest_addr == my_addr) 

op_pk_destroy(pkptr); 


/* 20A PR94: check the frame passed to “llc” is destined for remote lan */ 
/* This will allow only the packets to be counted for CDL traffic.*/ 

/* -Karayakaylar */ 

else 


{ 


/* add in its size */ 
fddilpl total bits -— op. pk total size get (pkptr); 
fddilpl total bits a[pri set] += op pk total size get (pkptr); /* 20APR94 */ 


/* increment packet counter; 20A PR94 */ 
fddilpl total pkts-4-; 
fddilpl total pkts a[pri set]; 


/* if a multiple of 25 packets is reached, update stats */ 
/* [0]->[7] represent asynch priorities 1-58, */ 

/* respectively; [8] represents synchronous traffic, */ 

/* and [9] represents overall asynchronous traffic.-Nix */ 
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/*if (fddilp1_total_pkts % 25 == 0) 
{ 
op_stat_global_write (t_gshandle, 
fddilpl total bits / op sim time ()); 


op stat global write (t gshandle a[pri set], 
fddilpl total bits a[0] / op sim time()); 

op stat global write (t gshandle, a[0], 
fddilpl total bits a[1] / op sim time()); 

op stat global write (t gshandle a[1], 
fddilpl total bits a[pri set] / op sim time()); 

op stat global write (t gshandle a[2], 
fddilpl total bits a[2] / op. sim time()); 

op. stat global write (t gshandle a[3], 
fddilpl total bits a[3] / op. sim timeQ); 

op stat global write (t gshandle a[4], 
fddilpl total bits a[4] / op sim time()); 

op stat global write (t gshandle a[5], 
fddilpl total bits a[5] / op sim time()); 

op stat global write (t gshandle a[6], 
fddilpl total bits a[6] / op sim time()); 

op stat global write (t gshandle a[7], 
fddilpl total bits a[7] / op. sim time(); 

op. stat. global write (t gshandle a[8], 
fddilpl total bits a[8] / op. sim timeQ); 

E, 

/* gather all asynch stats into one overall figure */ 

/*op stat global write (t gshandle a[9], 
(fddilpl total bits - fddilpl total bits a[8]) / 
op sim time()); 


Ji 

/* (fddilpl total bits a[0] -- fddilpl total bits a[1] 4 */ 
/* fddilpl total bits a[2] *- fddilpl total bits a[3] + */ 

/* fddilpl total bits a[4] -- fddilpl total bits a[5] 4 */ 

/* fddilpl total bits a[6] -- fddilpl total bits a[7]) / */ 

/* op sim time(Q); */ 


jos 
/*15JUN94 : before allocating. encapsulate the FDDI frame into a PPP packet */ 
Ppp. pkptr 7 op pk create fmt ("ppp ml"); 
Op pk nfd set (ppp pkptr, "seq number", PPP seq number4—); 
op pk nfd set (ppp pkptr, "FDDI frame", pkptr); 


/* 14APR94 :allocate the packets to llc sink subqueues */ 
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/* 6APR94 -Karayakaylar*/ 

/* check if load balancing algorithm is circular */ 

/* zero(0) is the circular load balancing code */ 

if (load_balance_code == 0) 
{ 

/* 5APR94 */ 
/* Apply load balancing to insert the packets in the */ 
/* subqueues, in a circular order */ 
subq_no = subq_index % 4; 
op subq pk insert(subq no, ppp pkptr, OPC QPOS TAIL); /*15JUN altered to 
send ppp*/ 
subq_index++; 


} 


/* 25APR94 */ 
/* check if load balancing algorithm is empty allocation */ 
/* one(1) is the empty allocation load balancing code */ 
if (load. balance code == 1) 
{ 
/* Apply load balancing to insert the packets in the */ 
/* subqueues by choosing the subqueue which has the maximum current */ 
/* number of free packet slots */ 
subq no - op subq index map(OPC QSEL MAX FREE PKSIZE); 
op subq pk insert(subq no, ppp pkptr, OPC QPOS TAIL); /*15JUN altered to 
send ppp*/ 
} 


}/*if(dest_addr > my_addr) statement */ 
break; ) 
}/* end of case OPC_INTRPT_STRM statement */ 


case OPC INTRPT SELF: /*27JUL94*/ 
/* if it is a self-interrupt, it is ume to send a monitoring packet. Send one. */ 
{ 
ppp. pkptr 7 op. pk create fmt(^ppp"); 
op pk nfd set (ppp pkptr,'" pid, h",0xc0); 
op pk nfd set (ppp. pkpu., "pid 1”,0х21); 
op ima obj attr. get (my, id," monitoring pkt size", &mon pkt size); 
op pk bulk size set (ppp pkptr. mon pkt size); 
if (load balance code == 1) 
{ 
subq no-op subq index map(OPC QSEL MAX FREE PKSIZE); 
op subq pk insert (subq. no,ppp. pkptr, OPC QPOS TAIL); 
} 
else if (load_balance_code == 0) 
{ 
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subq_no = subq_index % 4; 
op subq pk insert (subq. no,ppp pkptr, OPC QPOS TAIL); 
subq_index++; 
} 
break; 


} 


}/* end of switch */ 


/* check if each subqueue is not empty and transmitter is not busy */ 
/* irregardless if an interrupt is received or not 1AUG94*/ 
for (xmit subq index - 0;xmit subq index «-3; -—-xmit subq index) 
{ 

if ((!op_subq_empty(xmit_subq_index))&&(buffer[xmit_subq_index] == 0.0)) 
{ 
/*access the first packet in the subqueue */ 
pkptrl- op subq pk remove (xmit subq index, OPC_QPOS_HEAD); 

/* forward it to the destination xmitter */ 
/* associated with the subqueue index */ 
op pk send (pkptrl, xmit subq index ); 
/*if (op sim debugÜ0z2-OPC TRUE) 

printf (“packet sent to cp xmt from subqueue %d\n”,xmit_subq_index);*/ 


} 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (1,cp_fddi_sink) 


/** state (DISCARD) exit executives **/ 
FSM_STATE_EXIT_UNFORCED (0, state0 exit exec, "DISCARD") 
{ 
} 


/** state (DISCARD) transition processing **/ 
FSM_INIT_COND (END_OF_SIM) 
FSM_DFLT_COND 

FSM_TEST_LOGIC (“DISCARD”) 


FSM_TRANSIT_SWITCH 


{ 
FSM_CASE_TRANSIT (0, 1, statel_enter_exec, ;) 
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FSM. CASE TRANSIT (1,0, stateO enter. exec, ;) 


/** state (STATS) enter executives **/ 
FSM. STATE ENTER UNFORCED (1, state] enter exec, "STATS" 


/* At end of simulation, scalar performance statistics */ 
/* and input parameters are written out. */ 


op. stat scalar write (“RL Throughput (bps), Priority 1”, 
fddilp1_total_bits_a[0] / op_sim_time ()); /*20APR94*/ 


op stat scalar write (“RL Throughput (bps), Priority 2”, 
fddilp1_total_bits_a[1] / op_sim_time ()); 


op stat scalar write ("RL Throughput (bps), Priority 3”, 
fddilpl total bits. a[2] / op. sim time (); 


op stat scalar write ("RL Throughput (bps), Priority 4”, 
fddilpl total bits a[3] / op sim time 0); 


op stat scalar write (“RL Throughput (bps), Priority 5”, 
fddilpl total bits a[4] / op sim time 0); 


op. stat scalar write ("RL Throughput (bps), Priority б”, 
fddilpl. total bits a[5] / op. sim, time (); 


op stat scalar write ("RL Throughput (bps), Priority 7", 
fddilpl total bits a[6] / op sim time ()); 


op stat scalar write ("RL Throughput (bps), Priority 8", 
fddilpl total bits a[7] / op sim. time ()); 


op stat scalar write ("RL Throughput (bps), Asynchronous", 
(fddilpl total bits - fddilpl total bits a[8]) / op sim time ()); 


/* (fddilpl total bits a[0] 4 fddilpl total bits a[1] + */ 
/* fddilpl total bits a[2] 4 fddilpl total bits a[3] + */ 

/* fddilpl total bits a[4] 4 fddilpl total bits a[5] + */ 

/* fddilpl total bits a[6] 4- fddilpl total bits a[7]) / */ 

/* op sim time ()); */ 


op stat scalar write (“RL Throughput (bps), Synchronous”, 
fddilp1_total_bits_a[8] / op_sim_time ()); 


op stat scalar write (CRL Throughput (bps), Total", 
fddilpl total bits / op sim time ()); /*20APR94*/ 


/* Only one station needs to do this */ 
if (*fddi sink scalar write) 
{ 
/* set the scalar write flag */ 
fddi_sink_scalar_wnite = 1; 


op. stat scalar write ("Mean End-to-End Delay-0 (sec.), Priority 1", 
fddi sink accum delay a[0]/fddi sink total pkts a[0]); 


op stat scalar write ("Mean End-to-End Delay-0 (sec.), Priority 2", 
fddi sink accum delay a[1]/fddi sink total pkts a[1]); 


op stat scalar write ("Mean End-to-End Delay-0 (sec.), Priority 3", 
fddi sink accum delay. a[2] / fddi sink total pkts a[2]); 


op stat scalar write ("Mean End-to-End Delay-0 (sec.), Priority 4", 
fddi sink accum delay a[3] /fddi sink total pkts a[3]); 


op stat scalar write ("Mean End-to-End Delay-0 (sec.), Priority 5", 
fddi sink accum delay a[4] / fddi sink total pkts a[4]); 


op stat scalar write (Mean End-to-End Delay-0 (sec.), Priority 6", 
fddi sink accum delay. a[5] / fddi sink total pkts a[5]); 


op stat scalar write ("Mean End-to- End Delay-O (sec.), Priority 7”, 
fddi sink accum delay a[6]/fddi sink total pkts a[6]); 


op stat scalar write ("Mean End-to-End Delay-O (sec.), Priority 8", 
fddi sink accum delay a[7] / fddi sink total pkts a[7]); 


op stat scalar write ("Mean End-to- End Delay-0 (sec.), Asynchronous"', 
(fddi sink accum delay - fddi sink accum delay. a[8]) / 
(fddi sink total pkts - fddi sink total pkts a[8])); 


/* (fddi sink accum delay a[0] 4 fddi sink accum delay a[1] + */ 
/* fddi sink accum delay a[2] * fddi sink accum delay a[3] + */ 
/* fddi sink accum delay a[4] * fddi sink accum delay a[5] 4 */ 
/* fddi sink accum delay. a[6] « fddi sink accum delay a[7]) / */ 
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/* (fddi_sink_total_pkts_a[0O] + fddi_sink_total_pkts_a[1] + */ 
/* fddi_sink_total_pkts_a{2] + fddi_sink_total_pkts_a[3] + */ 
/* fddi sink total pkts a[4] 4 fddi sink total pkts a[5] + */ 
/* fddi sink total pkts a[6]-- fddi sink total pkts a[7])) */ 


op stat scalar write ("Mean End-to-End Delay-0 (sec.), Synchronous", 
fddi sink accum delay a[8]/fddi sink total pkts a[8]); 


op. stat scalar write ("Mean End-to-End Delay-0 (sec.), Total", 
fddi sink accum, delay / fddi sink total pkts); 


op. stat scalar write ("Throughput-O (bps), Priority 1”, 
fddi sink total bits a[0] / op. sim time Q): 


op stat scalar write ("Throughput-O (bps), Priority 2", 
fddi sink total bits a[1] / op. sim time (Q); 


op stat scalar write (““Throughput-0 (bps), Priority 3”, 
fddi sink total bits a[2] / op. sim time ()); 


op. stat, scalar write ("Throughput-0 (bps), Priority 4", 
fddi sink total bits a[3] / op sim time ()); 


op stat scalar write ("Throughput-O (bps), Priority 5", 
fddi sink total bits a[4] / op sim time Q); 


op. stat scalar write ("Throughput-O (bps), Priority 6", 
fddi sink total bits a[5] / op sim time ()); 


op. stat scalar write ("Throughput-0 (bps), Priority 7", 
fddi sink total bits a[6] / op sim time ()); 


Op. stat scalar write ("Throughput-0 (bps), Priority 8", 
fddi sink total bits a[7] / op sim, time ()); 


op stat scalar write ("Throughput-0 (bps), Asynchronous", 
(fddi sink total bits - fddi sink total bits a[8]) / op sim time Q); 


/* (fddi sink total bits a[0] 4 fddi sink total bits a[1] * */ 
/* fddi sink total bits a[2] 4 fddi sink total bits a[3] + */ 

/* fddi sink total bits a[4] 4 fddi sink total bits a[5] + */ 

/* fddi sink total bits a[6] 4- fddi sink total bits a[7]) / */ 

/* op sim time (); */ 
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op. stat scalar write ("Throughput-0 (bps), Synchronous", 
Гай sink total bits a[8] / op sim time ()); 


op stat scalar write (Throughput-O (bps), Total”, 
fddi sink total bits / op sim time ()); 


op stat scalar write ("Peak End-to-End Delay-O (sec.), Priority 1", 
fddi sink peak delay a[0]); 


op. stat scalar write ("Peak End-to-End Delay-0 (sec.), Priority 2", 
fddi sink peak delay a[1]); 


op stat scalar write ("Peak End-to-End Delay-0 (sec.), Priority 3”, 
fddi sink peak delay a[2]); 


op. stat scalar write ("Peak End-to-End Delay-0 (sec.), Priority 4", 
fddi sink peak delay. a[3]); 


op. stat scalar write ("Peak End-to-End Delay-0 (sec.), Priority 5”, 
fddi sink peak delay. a[4]); 


op stat scalar write ("Peak End-to-End Delay-0 (sec.), Priority 6", 
fddi sink peak delay a[5]) 


op stat scalar write ("Peak End-to-End Delay-0 (sec.), Priority 7", 
fddi sink peak delay. a[6]); 


op stat scalar write ("Peak End-to-End Delay-O0 (sec.), Priority 8", 
fddi sink peak delay. a[7]); 


Op. stat. scalar write ("Peak End-to-End Delay-0 (sec.), Synchronous”, 
fddi sink peak delay. a[8]); 


op. stat scalar write ("Peak End-to-End Delay-0 (sec.), Overall", 
fddi sink peak delay); 


/* Write the TTRT value for ring 0. This preserves*/ 

/* the old behavior for single-ring simulations.*/ 

op_stat_scalar_write (“TTRT (sec.) - Ring 0”, 
fddi t. opr [0]); 


/* 12JAN94: obtain offered load information from the Environment */ 


/* file; this will be used to provide abscissa information that */ 
/* can be plotted in the Analysis Editor (see "fddi sink" STATS */ 
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/* state. To the user: it’s your job to keep these current in */ 

/* the Environment File. -Nix */ 

op_ima_sim_attr_get (OPC_IMA_DOUBLE, “‘total_offered_load_0”, & Offered_Load); 

op_ima_sim_attr_get (OPC_IMA_DOUBLE, “asynch_offered_load_0”, &Asynch Of- 
fered_Load); 


/* 12JAN94: write the total offered load for this run */ 
op stat scalar write ("Total Offered Load-0 (Mbps)", 
Offered Load); 


op stat scalar write ("Asynchronous Offered Load-0 (Mbps)", 
Asynch Offered Load); 

} 
} 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (3,cp_fddi_sink) 


/** state (STATS) exit executives **/ 
FSM_STATE_EXIT_UNFORCED (1, statel_exit_exec, ““STATS”’) 
{ 
} 


/** state (STATS) transition processing **/ 
FSM TRANSIT MISSING ("STATS") 
/®--——------—-—------- — */ 


/** state (INIT) enter executives **/ 

FSM_STATE_ENTER_FORCED (2, state2_enter_exec, “INIT’) 
{ 
/* get the gshandles of the global statistic to be obtained */ 
/* 20JANO94: set array format */ 
ды 
thru_gshandle_a[{0] = op_stat_global_reg (“рп 1 throughput-O (bps)”’); 
thru, gshandle, a[1] 2 op stat global reg (“pri 2 throughput-0 (bps)’’); 
thru. gshandle, a[2) 7 op. stat global reg ("pri 3 throughput-0 (bps)'); 
thru gshandle a[3) 2 op. stat. global reg (*pri 4 throughput-0 (6р5)”); 
thru gshandle а[4] = op. stat global reg (pri 5 throughput-0 (bps)'; 
thru gshandle a[5] - op. stat global reg ("pri 6 throughput-0 (bps)'); 
thru gshandle a[6] — op. stat global reg (pri 7 throughput-0 (bps)"); 
thru gshandle a[7] = op. stat global reg (pri 8 throughput-0 (bps)"); 
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thru gshandle a[8] — op stat global reg ("synch throughput-O (bps)"); 
thru gshandle a[9] — op stat global reg ("async throughput-0 (bps)’’); 
thru gshandle - op. stat global reg ("total throughput-O (bps)"); 


m delay gshandle a[0] — op stat global reg ("pri 1 mean delay-0 (sec.)'); 
m delay gshandle a[1]- op stat global reg (pri 2 mean delay-0 (sec.)"); 
m delay gshandle a[2] - op. stat. global reg (“pri 3 mean delay-0 (sec.)’’); 
m delay gshandle a[3] — op stat global reg (pri 4 mean delay-0 (sec.)"); 
m, delay gshandle a[4] = op. stat. global reg ("pri 5 mean delay-0 (sec.)"); 
m delay gshandle a[5] 2 op stat global reg (pri 6 mean delay-0 (sec.)); 
m, delay gshandle a[6]- op stat global reg ("pri 7 mean delay-O (sec.)’’); 
m delay gshandle a[7] - op stat global reg ("pri 8 mean delay-0 (sec.)’’); 
m, delay gshandle a[8] - op stat global reg ("synch mean delay-0 (sec.)’’); 
m delay gshandle a[9] — op. stat global reg ("async mean delay-0 (ѕес.)”); 
m delay gshandle - op. stat. global reg ("total mean delay-0 (sec.)”); 


ete delay gshandle a[0] 2 op. stat global reg (pri 1 end-to-end delay-0 (sec.)”); 
ete delay gshandle a[1] 2 op. stat global reg ("pri 2 end-to-end delay-O (sec.)"); 
ete delay gshandle a[2] 2 op stat global reg (pri 3 end-to-end delay-O (sec.)”’); 
ete delay gshandle a[3] 2 op. stat. global reg (“pri 4 end-to-end delay-O (sec.)’’); 
ete delay gshandle a[4] 2 op. stat global reg ("pri 5 end-to-end delay-0 (sec.)"); 
ete delay gshandle a[5] - op. stat global reg ("pri 6 end-to-end delay-0 (sec.)’’); 
ete delay gshandle a[6] — op stat global reg ("pri 7 end-to-end delay-0 (sec.)'); 
ete delay gshandle a[7] - op. stat. global reg ("pri 8 end-to-end delay-O (sec.)'; 
ete delay gshandle а[8] = ор stat global reg ("synch end-to-end delay-O (sec.)'); 
ete delay gshandle - op stat global reg ("total end-to-end delay-O (sec.)'); 


t gshandle a[0] 2 op stat. global reg ("pri 1 RL throughput (6р5)”); 
t gshandle a[1] - op. stat global reg ("pri 2 RL throughput (bps)'); 
t gshandle a[2] 7 op. stat. global reg (pri 3 RL throughput (bps)"); 
t gshandle a[3] 2 op. stat. global reg ("pri 4 RL throughput (bps)'); 
t gshandle a[4] 2 op. stat. global reg ("pri 5 RL throughput (bps)"); 
t gshandle а[5] = op. stat global reg (pri 6 RL throughput (bps)"); 
t gshandle a[6] 2 op. stat. global reg ("pri 7 RL throughput (bps)"); 
t gshandle a[7] 2 op. stat global reg (“pri 8 RL throughput (bps)"); 
t gshandle a[8] 2 op stat global reg ("synch RL throughput (bps)'); 
t gshandle a[9] 2 op. stat global reg ("async RL throughput (6р5)”); 
t gshandle 2 op stat global reg (total RL throughput (bps)”’); 

*/ 

link gshandle[0] 2 op. stat. global reg (Link 0 jamming’’); 

link gshandle[1] 2 op. stat. global reg (“Link 1 jamming”); 

link gshandle[2] 2 op. stat. global reg ("Link 2 jamming"); 

link gshandle[3] 2 op. stat global reg ("Link 3 jamming ); 

jammer. stats initz OPC TRUE; 


subq no = 0; 
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/* 7APR94:determine id of own processor to use in finding */ 
/* load balancing attribute and station address of the bridge node */ 
тшу іа = ор id self(); 


/* 1SJUN94: get rate for link monitoring packet transmission */ 
op ima obj attr get (my id,"link monitor trans rate", &link mon trans rate ); 


/* 26JUL94: get duration of the simulation */ 
op ima sim, attr get (OPC IMA DOUBLE, "duration", &sim duration); 


/* 26JUL94:generate a self interrupt at each time that a monitoring packet*/ 
/* is to be sent. Since these packets are to be sent at a fixed terate (per */ 

/* second), the only way to guarantee packet generation in this event */ 

/* driven simulation is to create an interrupt at the appropriate sim */ 

/* times. These interrupts will cause a monitoring packet to be sent */ 

/* through the discard state.*/ 


for (time= op_sim_time(); time<=sim_duration; time+=link_mon_trans_rate) 
{ 
op_intrpt_schedule_self (time, 0xc021); 
} 


/** state (INIT) exit executives **/ 

FSM STATE EXIT FORCED (2, state2 exit exec, "INIT") 
{ 

} 


/** state (INIT) transition processing **/ 
FSM_INIT_COND (END_OF_SIM) 
FSM_DFLT_COND 

FSM TEST LOGIC (“INIT”) 


FSM TRANSIT SWITCH 
| 
FSM CASE TRANSIT (0, 1, state] enter exec, ;) 


FSM CASE TRANSIT (1, 0, stateO enter. exec, ;) 
) 


FSM_EXIT (2,cp_fddi_sink) 
} 


void 

cp_fddi_sink_svar (prs_ptr,var_name,var_p_ptr) 
cp fddi sink state*prs ptr; 
char  *var name, **var p ptr; 


{ 
FIN (cp_fddi_sink_svar (prs_ptr)) 


*var_p_ptr = VOS_NIL; 

if (Vos String Equal ("thru gshandle" , var_name)) 
*var p ptr — (char *) (&prs ptr-»sv thru gshandle); 

if (Vos String Equal (*m delay gshandle", var name)) 
*var p ptr 7 (char *) (&prs ptr-»sv m delay gshandle); 

if (Vos String Equal ("ete delay gshandle", var name)) 
*var p ptr - (char *) (&prs ptr-»sv ete delay gshandle); 

if (Vos String Equal ("thru gshandle a", var name)) 
*var p ptr — (char *) (prs ptr-»5sv. thru gshandle a); 

if (Vos String Equal (*m delay gshandle a", var name)) 
*var p ptr — (char *) (prs ptr-^sv m delay gshandle a); 

if (Vos String Equal ("ete delay gshandle a", var name)) 
*var p ptr = (char *) (prs ptr-»sv ete delay gshandle a); 

if (Vos String Equal (t gshandle" , var name)) 
*var p ptr — (char *) (&prs ptr-»sv t gshandle); 

if (Vos String Equal (tt gshandle a", var name)) 
*var p ptr - (char *) (prs ptr-»sv t gshandle a); 

if (Vos String Equal ("my id", var name)) 
*var p ptr — (char *) (&prs ptr-»sv my. id); 

if (Vos String Equal (PPP seq number'", var name)) 
*var p ptr — (char *) (&prs ptr-^sv PPP seq number); 

if (Vos String Equal ("Ctime" , var name)) 
*var p ptr - (char *) (&prs ptr-»sv. time); 


FOUT, 
} 


void 
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cp_fddi_sink_diag () 
{ 
double delay, creat_time, 
Packet*pkptr; 
Packet* pkptr1 ; /*5APR94*/ 
Packet*ppp. pkptr;/* 15JUN94*/ 
int src. addr, my. addr; 
int dest. addr;/* 14A PR94*/ 
Ici* from mac ici ptr; 
double fddi sink ttrt; 
int xmit_subq_index;/*5APR94*/ 


int load. balance code; /*6APR94*/ 
int i,subq no; /*25APR94*/ 
int index; /* 1OM AY O4 */ 


double link mon trans rate; /*15JUN94*/ 

char  strO[512], str1 [512]; /* for diagnostics */ 
int mon, pkt size; /*26JUL */ 

double sim duration; /*26JUL */ 


FIN (cp. fddi sink diag O) 


/* find out why straight line syndrome */ 


op prg odb print major ( ----------- DEBUGGING for straight line--------- ” ,OPC_NIL); 
sprintf (strO," count of packets : (Vod)",subq index); 

sprintf (str1,"subqueue no : (god) ,subq по); 
op prg odb print minor (strO,strl, OPC_NIL); 


FOUT, 
} 


void 

cp_fddi_sink_terminate () 
{ 
double delay, creat time; 
Packet*pkptr; 
Packet* pkptrl ; /*SAPR94*/ 
Packet*ppp_pkptr;/* 1SJUN94*/ 
int src_addr, my_addr; 
int dest addr;/*14APR94*/ 
Ici* from mac ici ptr; 
double fddi sink ttrt; 
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int xmit subq index;/*5APR94*/ 


int load balance code; /*6APR94*/ 
int i,subq no; /*25APR94*/ 
int index; /*1OMAYO4 */ 


double link mon trans rate; /*15JUN94*/ 

char  strO0[512], str1 [512]; /* for diagnostics*/ 
int mon pkt size; /*26JUL*/ 

double sim duration; /*26JUL */ 


FIN (cp. fddi sink terminate ()) 


FOUT, 
} 


Compcode 
cp_fddi_sink_init (pr_state_pptr) 
cp fddi sink state**pr state pptr; 
{ 
static VosT_Cm_Obtypeobtype = OPC_NIL; 


FIN (cp. fddi sink init (pr state pptr)) 
if (obtype == OPC_NIL) 


if (Vos_Catmem_Register (“proc state vars (cp_fddi_sink)”, 
sizeof (cp_fddi_sink_state), Vos_Nop, &obtype) == VOSC_FAILURE) 
FRET (OPC_COMPCODE_FAILURE) 

} 


if ((*pr_State_pptr = (cp_fddi_sink_state*) Vos_Catmem_Alloc (obtype, 1)) == OPC_NIL) 
FRET (OPC_COMPCODE_FAILURE) 
else 


{ 
(*pr_state_pptr)->current_block = 4; 
FRET (OPC_COMPCODE_SUCCESS) 
} 

} 


APPENDIX D 


RING 1 LLC_SRC MODULE CODE 
“ер. Ғайі сеп.рг.с” 


/* Process model C form file: sp_fddi_gen.pr.c */ 
/* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

#include “sp_fddi_gen.pr.h” 
FSM_EXT_DECS 


/* Header block */ 
#define MAC LAYER OUT_STREAMO 
#define LLC_SINK_OUT_STREAM 1] /* 18APR94*/ 


/* define possible service classes for frames */ 
fdefine FDDI SVC. ASYNCO 
define FDDI SVC. SYNCI 


/* define token classes */ 
define FDDI T& NONRESTRICTEDO 
4define FDDI TK RESTRICTEDI 


/* define output statistics */ 
define RATIO OUTSTATO 
#define LINK STATUS OUTSTAT 1 


/* link status constants 30 JUL94*/ 
#define GOOD 0 
#define BAD 2 


/* history trend constants 30JUL94*/ 


#define DOWN 0 
#define UP ] 
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/* redefine absolute value function for floating pt values 28JUL94*/ 
*tdefine abs(i) (1)«0 ? -(1) : (1) 


struct history element 
/* format for linked list of history values 26JUL94*/ 
{ 
int num_errs; 
struct history_element *next; 
} *history; 


/* function declaration 28JUL94*/ 
struct history element *create history(); 


/* State variable definitions */ 

typedef struct 
{ 
FSM_SYS_STATE 
Distribution* sv inter dist ptr; 
Distribution* sv len dist ptr; 
Distribution* sv. dest dist ptr; 
Distribution* sv pkt priority ptr; 


Objid sv mac, objid; 
Objid sv my. id; 

int sv low dest addr; 
int sv high dest addr; 
int sv Station addr; 
int sv SIC addr; 

int sv low pkt priority; 
int sv high pkt priority; 
int sv ppp pid h; 

int sv ppp pid 1; 
double sv arrival rate; 
double sv mean pk len; 
double sv async mix; 
Ici* sv mac iCiptr; 
Ici* sv mac iciptrl; 
Ici* sv llc ici ptr; 


Packet* sv. pkptrl; 
Packet* sv ppp pkptrl; 
Packet* sv. ppp pkptr2; 
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int sv hist len; 


int sv link status; 
int sv pkts in error; 
double sv. Old ratio; 


) sp fddi gen state; 


*tdefine pr state ptr 
sdefine inter dist ptr 
*tdefine len dist ptr 
*define dest dist ptr 
#define pkt priority ptr 
#define mac_objid 
#define my_id 

#define low_dest_addr 
*define high dest addr 
4define station addr 
define src. addr 
*definelow pkt priority 
*tdefine high pkt priority 
fdefine ppp. pid h 
*tdefine ppp pid 1 
define arrival rate 
*define mean pk len 
"define async, mix 
*tdefine mac iciptr 
#define mac_iciptrl 
*tdefine llc ici ptr 
#define pkptrl 

*define ppp. pkptri 
*define ppp pkptr2 
#аебпе hist len 

4define link status 
*tdefine pkts in error 
define old ratio 


((sp fddi gen state*) SimI. Mod State Ptr) 
pr state ptr-^»sv inter dist ptr 
pr state ptr-»sv len dist ptr 

pr state ptr-»sv dest dist ptr 

pr state ptr-»sv pkt priority ptr 
pr state ptr-^sv mac objid 

pr state ptr-»sv my id 

pr state ptr-^sv low dest addr 
pr state ptr-^sv high dest addr 
pr state ptr-»sv station addr 

pr state ptr-^»sv src addr 

pr state ptr-»sv low pkt priority 
pr state ptr-»sv high pkt priority 
pr state ptr-^sv ppp pid h 

pr state ptur-^sv ppp pid 1 

pr state ptr-»sv arrival rate 

pr state pur-»sv mean pk len 

pr state ptr-»sv async mix 

pr state ptr-»sv mac, iciptr 

pr state ptr-^sv mac, iciptrl 

pr state ptr-»sv llc ici ptr 

pr state ptr-^sv pkptrl 

pr state ptr-^sv ppp pkptrl 

pr state ptr-»sv ppp pkptr2 

pr state ptr-»sv hist len 

pr state ptr-»sv link status 

pr state ptr-»sv pkts in error 

pr state ptr-»sv old ratio 


/* Process model interrupt handling procedure */ 


void 
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sp_fddi_gen () 


{ 
Packet — *pkptr; 


int pklen; 

int dest addr; 
int 1,1, restricted; 
int pkt. prio; 

int num eITOIS; 


double new ratio, upper thresh, lower thresh; 
double LQR trans delta; 


FSM ENTER (sp fddi gen) 


FSM BLOCK SWITCH 


[** state (INIT) enter executives **/ 

FSM STATE ENTER UNFORCED (0, state0 enter. exec, ^INIT") 
{ 
/* determine id of own processor to use in finding attrs */ 
my_id = op_id_self (); 


/* determine address range for uniform desination assignment */ 
Op_ima_obj_attr_get (my_id, “low dest address”, &low_dest_addr); 
op ima obj attr get (my. id, "high dest address", &high dest addr); 


/* determine object id of connected ‘mac’ layer process */ 
mac_objid = op_topo_assoc (my_id, OPC_TOPO_ASSOC_OUT, 
OPC OBJMTYPE MODULE, MAC LAYER OUT STREAM); 


/* determine the address assigned to it */ 
/* which is also the address of this station */ 
op. ima obj attr get (mac, objid, "station address", &station  addr); 


/* set up a distribution for generation of addresses */ 
dest dist ptr - op dist load ("uniform int", low. dest, addr, 
high dest addr); 


/* added 26DEC93 */ 
/* determine priority range for uniform traffic generation */ 
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op_ima_obj_attr_get (my_id, “high pkt priority", &high pkt priority); 
op ima obj attr get (my id, "low pkt priority, &low pkt priority); 


/* set up a distribution for generation of priorities */ 
pkt_priority_ptr = op_dist_load ("uniform int",low pkt priority, high pkt priority); 


/* above added 26DEC93 */ 


/* also determine the arrival rate for packet generation */ 
op_ima_obj_attr_get (my_id, “arrival rate”, &arrival_rate); 


/* determine the mix of asynchronous and synchronous */ 
/* traffic. This is expressed as the proportion of */ 

/* asynchronous traffic. i.e a value of 1.0 indicates */ 

/* that all the produced traffic shall be asynchronous. */ 
op_ima_obj_attr_get (my_id, “аѕупс тіх”, &аѕупс тіх); 


/* set up a distribution for arrival generations */ 

if (arrival_rate {= 0.0) 
{ 
/* arrivals are exponentially distributed, with given mean */ 
inter dist ptr 2 op dist load ( constant", 1.0/ arrival rate, 0.0); 


/* determine the distribution for packet size */ 
op ima obj attr get (my. id, "mean pk length", &mean pk len); 


/* set up corresponding distribution */ 
len dist ptr 2 op dist load ("constant", mean, pk len, 0.0); 


/* designate the time of first arrival */ 
fddi gen, schedule (); 


/* set up an interface control information (ICT) structure */ 

/* to communicate parameters to the mac layer process */ 

/* (it is more efficient to set one up now and keep it */ 

/* as a State variable than to allocate one on each packet xfer) */ 
mac iciptr —- op ici create (*fddi mac req"); 


) 


/* set up history array (dynamically allocated) which will maintain */ 
/* number of errors in each monitoring packet rcvd. The number of */ 
/* values (length of the array) saved will be determined by an */ 


104 


/* environment attribute. 21JUL94 */ 
op ima obj attr get (my. id, "history length", &hist len); 
history 2 create history(hist. len); 
рпа“ (“НІЅ$ТОКҮ\п”); 
if (op. sim, debug() — OPC TRUE) 
{ 
for Gi=1;i<=hist_len;++i) 
{ 
printf (“%d “,history->num_errs); 
history = history->next; 
} 
printf (^n^); 
} 
} 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (1,sp_fddi_gen) 


/** state (INIT) exit executives **/ 

FSM STATE EXIT UNFORCED (0, stateO exit exec, "INIT") 
{ 
} 


/** state (INIT) transition processing **/ 
FSM_TRANSIT_FORCE (1, statel_enter_exec, ;) 


/** state (ARRIVAL) enter executives **/ 
FSM_STATE_ENTER_UNFORCED (1, statel_enter_exec, “ARRIVAL’’) 
{ 
/* This station should receive frames from the other lan as long as */ 
/* there are frames in the input streams addressed to this lan */ 
/*check if the interrupt type is stream interrupt *//*12APR94*/ 
if(op_intrpt_type() == OPC_INTRPT_STRM) 
{ 
/* if it is, get the packet in the input stream causing interrupt */ 
/* modified for PPP 12JUL94 */ 
ppp_pkptrl = op_pk_get(op_intrpt_strm()); 
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/* determine type of PPP packet 12JUL94 */ 
op. pk nfd get(ppp pkptrl,"pid h", &ppp. pid. bj; 
/* case on pid. h: 00 - data, OxcO - control 13JUL*/ 
switch (ppp pid h) 
{ 
case 0x00: /* if data, strip header and send as FDDI frame */ 
/* strip off PPP header 12JUL94*/ 
if (op_sim_debug()==OPC_TRUE) 
{ 
printf (“pkt rcvd at sp: data\n”’); 
num_errors =op_td_get_int(ppp_pkptr1,OPC_TDA_PT_NUM_ERRORS), 
printf (“number of errors in data - %d\n”,num_errors); 
} 
op_pk_nfd_get(ppp_pkptrl, ’FDDI_frame’’”,&pkptr1); 
op. pk destroy(ppp pkptr1); 
/* get the destination address of the frame : 16APR94 */ 
op_pk_nfd_get(pkptrl, “dest_addr”, &dest addr); 
/* check if this frame is for the remote bridge station(bridge in surface lan) */ 
ifídest addr —- station addr) 
[* if it is, send the packet to llc sink directly */ 
/* in order to prevent overhead of mac access */ 
op. pk send(pkptrl, LLC SINK OUT STREAM);/* 19APR94*/ 
else 
/* this packet is to send to mac */ 
{ 
/* determine the source address of the frame */ 
op. pk nfd get(pkptrl, "src addr", &src addr); 
/* set up an ICI structure to communicate parameters to */ 
/* MAC layer process */ 
mac iciptrl - op ici create("fddi mac req"); 
/* place the original source address into the ICI *//* 16APR94 */ 
/* "fddi mac req" is modified so that it contains the original */ 
/* source address from the local lan(collection platform) */ 
Op ici attr set(mac iciptrl, "src addr', src addr); 
/* place the destination address into the ICI */ /* 12APR94*/ 
Op ici attr set(mac  iciptr], "dest addr", dest addr); 
/* assign the service class and requested token class */ 
/* At this moment the frames coming from the remote lan are assumed */ 
/* to have the same priority as synchronous frames in order not to accumulate */ 
/* packets on the bridge station mac and instead to deliver their destinations */ 
/* as soon as possible */ 
op pk nfd set(pkptrl, "pri", 8); 
ор ісі айт set(mac iciptrl, "svc class", FDDI SVC. SYNC); 
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Op_ici_attr_set(mac_iciptrl, “pri’’, 8); 
op ici attr set(mac, iciptrl, "tk class", FDDI TK NONRESTRICTED); 
/* send the packet coupled with the ICI */ 
op. ici install(mac. iciptr1); 
op pk send(pkptrl, MAC LAYER OUT STREAM); 
} 
break; 
case OxcO: /* either monitoring packet or LOR */ 
op. pk nfd get (ppp. pkptrl,"pid l",&ppp. pid 1); 
switch (ppp. pid 1) 
{ 
case 0x21: /*monitoring packet*/ 
printf (“MONITORING PACKET RECEIVED”); 
num_errors =0p_td_get_int(ppp_pkptr1,OPC_TDA_PT_NUM_ERRORS),; 
printf (“ NUMBER OF ERRORS -->%dn”",num_errors); 
if ((num_errors != 0) && (history->num_errs==0)) 
pkts_in_error++; 
else 1f (num_errors == 0) && (history->num_errs != 0)) 
pkts_in_error--; 
printf (^ TOTAL NUMBER OF PACKETS IN ERROR -- 
>%d\n’” pkts_in_error); 


history->num_errs = num_errors; 
history = history->next; 


if (op_sim_debug()==OPC_TRUE) 
/* print out history values 30JUL94 */ 
{ 
for (i=1;i<=hist_len;++1) 
{ 
printf (“%d “,history->num_errs); 
history = history->next, 
} 
printf (“\n’’); 


op pk destroy (ppp. pkptr1); 


new ratio — (double)pkts in error/(double)hist, ien; 

/* outstat(0) will be a record of the ratio 8AUG94*/ 

op. stat local write (RATIO OUTSTAT, new. ratio); 

op ima obj attr get (my. id, "LOR transmission delta", &LOR trans delta); 
if (op_sim_debug()==OPC_TRUE) 
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printf (“LOR delta - %f new_ratio - %of old_ratio - 


gZofNY ,LQR trans delta,new ratio,old ratio); 


/* 8AUG94 This condition allows for tolerance in the ratio 


calculation(division) */ 


&upper_thresh); 


&lower_thresh); 


if (abs(new. ratio - old ratio) >= LQR_trans_ delta) 


{ 

ppp_pkptr2 = op. pk create fmt ("ppp"); 

op. pk nfd set (ppp pkpt2, "pid h", 0xcO); 

op. pk nfd set (ppp. pkptr2, "pid 1", 0x25); 

op ima obj attr get (my id, "upper hysteresis threshold", 


op ima obj attr get (my id, "lower hysteresis threshold", 


/* status = GOOD 0 or BAD 2 trend = UP 1 or DOWN 0 2AUG94*/ 


if (new ratio »- upper. thresh) 


2)); 


link_status = BAD; 

else if (new_ratio <= lower_thresh) 

link_status = GOOD; 

else link_status = link_status - (link_status % 2);/* remove trend value*/ 


/* outstat(1) will monitor link status 0-GOOD 1-BAD 8AUG94*/ 
op stat local write (LINK STATUS OUTSTAT, (double) (link status/ 


/* trend will change each time */ 

if (new ratio » old ratio) /*up-trend */ 
link status += UP; 

else link status += DOWN; 


op. pk nfd set (ppp pkptu2, "LOR info", link status); 
if (op sim debugÜzzOPC TRUE) 

{ 

printf (“resulting LOR pkt\n”); 
op_pk_print(ppp_pkptr2); 

} 

old_ratio = new_ratio; 

op pk send (ppp. pkpu2, LLC SINK OUT STREAM); 
) 


if (op sim debugÜ--OPC TRUE) 
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printf (“* Latest ratio: %f\n” ,new_ratio); 
break; 


case 0x25:/*LQR from cp - not implemented yet*/ 
break; 
default: 
printf “TERROR: UNKNOWN PPP PACKET - pid_l=0x%x\n’’ ppp_pid_1); 
op. pk destroy (ppp_pkptrl); 
break; 
j 
break; 
default: 
printf (CERROR: UNKNOWN PPP PACKET - pid. h20x9oxWM",ppp. pid. hj; 
op. pk destroy (ppp. pkptr); 
break; 
} 


} 
/* otherwise, generate the frame */ 
else 
{ 
/* determine the length of the packet to be generated */ 
pklen = op_dist_outcome (len_dist_ptr); 


/* determine the destination */ 
/* dont allow this station’s address as a possible outcome */ 
gen_packet: 
dest_addr = op_dist_outcome (dest_dist_ptr); 
if (dest addr !2 -1 && dest addr —- station addr) 
goto gen packet; 


/* 26DEC94 & 29JANO94: determine its priority */ 
pkt prio — op. dist. outcome (pkt. priority ptr); 


/* create a packet to send to mac */ 
pkptr 2 op. pk create fmt ("fddi llc fr"); 


/* assign its overall size. */ 
Op pk total size set (pkptr, pklen); 


/* assign the time of creation */ 
op pk nfd set (pkptr, "cr time", op sim time ()); 
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/* place the destination address into the ICI */ 
/* (the protocol_type field will default) */ 
Op ici attr set (mac iciptr, "dest addr", dest addr); 


/* place the source address into the ICI *//* 17APR94*/ 
op ici attr set (mac iciptr, src addr", station addr); 


/* assign the priority, and requested token class */ 
/* also assign the service class; 29JAN94: the fddi llc fr */ 
/* format is modified to include a "pri" field. */ 
if (op dist uniform (1.0) «- async mix) 
{ 
ор _рк_пѓа ѕеї (ркру, “рп”, pkt_prio); /* 29JAN94 */ 
op_ici_attr_set (mac_iciptr, “svc_class”, FDDI_LSVC_ASYNC); 
op ici attr set (mac iciptr, pri", pkt_prio); /* 29JAN94 */ 
} 
else{ 
op_pk_nfd_set (pkptr, “pri’’, 8); /* 29JAN94 */ 
op ici attr set (mac. iciptr, "svc class", FDDI SVC SYNC); 
ор ici attr set (mac. iciptr, "pri", 8); /* 29JANO94 */ 
} 


/* Request only nonrestricted tokens after transmission */ 
Op_ici_attr_set (mac iciptr, "tk class", FDDI TK NONRESTRICTED); 


/* Having determined priority, assign it; 26DEC93 */ 
/* op_ici_attr_set (mac_iciptr, “prr”, pkt_prio); */ 


/* send the packet coupled with the ICI */ 
Op ici install (mac  iciptr); 
/* check if destination address is in the local lan(collection platform)*/ 
if(dest_addr <= 9) 
/* if it is, this packet is to send lic_sink directly */ 
op pk send (pkptr, LLC SINK OUT STREAM); /*18APR94*/ 
else 
/* if not, the packet is destined for remote lan (surface stations)*/ 
op pk send (pkptr, MAC LAYER OUT STREAM); 


/* schedule the next arrival */ 
fddi gen schedule (); 

} 

} 
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/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (3,sp_fddi_gen) 


/** state (ARRIVAL) exit executives **/ 
FSM_STATE_EXIT_UNFORCED (1, statel_exit_exec, ““ARRIVAL”’) 
{ 
} 


/** state (ARRIVAL) transition processing **/ 
FSM TRANSIT FORCE (1, statel enter exec, ;) 


FSM EXIT (O,sp fddi gen) 
} 


void 

sp_fddi_gen_svar (prs_ptr,var_name,var_p_ptr) 
sp_fddi_gen_state*prs_ptr; 
char  *var name, **var p ptr; 


{ 
FIN (sp_fddi_gen_svar (prs_ptr)) 


*уаг р ри = VOS_NIL; 

if (Vos String Equal ("inter dist ptr" , var name)) 
*var p ptr 2 (char *) (&prs ptr-5sv inter dist ptr); 

if (Vos String Equal ("len dist ptr", var name)) 
*var p ptr — (char *) (&prs ptr-»sv len dist ptr); 

if (Vos String Equal ("dest dist ptr", var name)) 
*var p ptr - (char *) (&prs ptr-»sv dest dist ptr); 

if (Vos String Equal ("pkt priority ptr", var name)) 
*var p ptr - (char *) (&prs ptr-»sv pkt priority ptr); 
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if (Vos_String_ Equal (“mac_objid” , var_name)) 
*var_p_ptr = (char *) (&prs ptr-»sv mac objid); 

if (Vos String Equal (my. id" , var name)) 
*var p ptr — (char *) (&prs ptr-»sv my id); 

if (Vos String Equal ("low dest addr'", var name)) 
*var p ptr - (char *) (&prs ptr-»sv low dest addr), 

if (Vos String Equal ("high dest addr" , var name)) 
*var p. ptr 2 (char *) (&prs ptr-»sv high dest addr); 

if (Vos String Equal ("station addr'" , var name)) 
*var p ptr - (char *) (&prs ptr-»sv station addr); 

if (Vos String Equal ("src addr", var name)) 
*var p ptr — (char *) (&prs ptr-»sv src addr); 

if (Vos String Equal ("low pkt priority" , var name)) 
*var p ptr - (char *) (&prs ptr-5sv. low pkt priority); 

if (Vos String Equal ("high pkt priority" , var. name)) 
*var p ptr - (char *) (&prs ptr-»sv high pkt priority); 

if (Vos String Equal ("ppp pid h", var name)) 
*var p. ptr — (char *) (&prs ptr-»sv ppp. pid hj; 

if (Vos String Equal (ppp. pid ]" , var name)) 
*var p ptr — (char *) (&prs ptr-5»sv ppp. pid 1); 

if (Vos String Equal ("arrival rate" , var name)) 
*var p ptr — (char *) (&prs ptr-»sv. arrival rate); 

if (Vos String Equal ("mean pk len" , var name)) 
*var p. ptr - (char *) (&prs ptr-^sv mean pk len); 

if (Vos String Equal ("-async mix" , var name)) 
*var p ptr = (char *) (&prs ptr-»sv async mix); 

if (Vos String Equal (*mac, iciptr", var пате)) 
*var p ptr — (char *) (&prs ptr-5»sv mac. iciptr); 

if (Vos String Equal (mac. iciptrl" , var. name)) 
*var p. ptr 2 (char *) (&prs ptr-5»sv mac iciptrl); 

if (Vos String Equal ("llc ici ptr", var name)) 
*var p ptr — (char *) (&prs ptr-»sv llc ici ptr); 

if (Vos String Equal ("pkptr1" , var name)) 
*var p ptr —- (char *) (&prs ptr-5sv pkptr1); 

if (Vos String Equal (ppp. pkptr1" , var name)) 
*var p. ptr — (char *) (&prs ptr-»sv. ppp. pkptrl); 

if (Vos String Equal ("ppp. pkptr2". var name)) 
*var p. ptr z (char *) (&prs ptr-»sv. ppp. pkptr2); 

if (Vos String Equal (hist len", var. name)) 
*var p ptr —- (char *) (&prs ptr-»sv. hist len); 

if (Vos String Equal ("link status" , var name)) 
*var p ptr — (char *) (&prs ptr-»sv link status); 

if (Vos String Equal ("pkts in error" , var name)) 
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*var_p_ptr = (char *) (&prs_ptr->sv_pkts_in_error); 
if (Vos_String Equal (“old_ratio” , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_old_ratio); 


FOUT, 
} 


void 
sp fddi gen diag () 
{ 
Packet*pkptr; 
int pklen; 
int dest addr; 
int i,j, restricted; 
int pkt_prio; 
int num_ errors; 
doublenew_ratio, upper_thresh, lower_thresh; 
doubleLQR trans delta; 


FIN (sp. fddi gen diag ()) 


FOUT, 


void 
sp_fddi_gen_terminate () 
{ 
Packet*pkptr; 
int pklen; 
int dest addr; 
int i,j, restricted; 
int pkt_prio; 
int пшп епог5; 
doublenew_ratio, upper_thresh, lower_thresh; 
doubleLOR trans delta; 
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FIN (sp_fddi_gen_terminate ()) 


FOUT, 


Compcode 
sp_fddi_gen_init (pr_state_pptr) 
sp fddi gen state**pr state pptr; 
{ 
static VosST Cm Obtypeobtype - OPC NIL; 


FIN (sp fddi gen init (pr state pptr)) 


if (obtype == OPC_NIL) 
{ 
if (Vos Catmem, Register (proc state vars (sp. fddi gen)", 
sizeof (sp. fddi gen state), Vos Nop, &obtype) 2» VOSC FAILURE) 
FRET (OPC COMPCODE FAILURE) 
} 


if ((*pr_state_pptr = (sp_fddi_gen_state*) Vos_Catmem_Alloc (obtype, 1)) == OPC_NIL) 
FRET (OPC_COMPCODE_FAILURE) 
else 
{ 
(*pr_state_pptr)->current_block = 0; 
FRET (OPC COMPCODE SUCCESS) 
) 
) 


/* static added 2DEC93, on advice from MIL3 */ 
Static 
fddi_gen_schedule () 

{ 


double inter_time; 
/* obtain an interarrival period according to the */ 


/* prescribed distribution */ 
inter_time = op_dist_outcome (inter_dist_ptr); 
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/* schedule the arrival of next generated packet */ 
op_intrpt_schedule_self (op_sim_time () + inter_time, 0); 


) 


struct history_element *create_history(size) 
int Size; 


/* returns a pointer to the first element in a circular linked list */ 
{ 
struct history_element *p, *new, *start; 
int 1; 


for (i=1;51<=size;++1) 
{ 
printf (“inside on iteration %d %d\n"’,1,size), 
new - (struct history element*)malloc(sizeof(struct history element)); 
if (!new) 


{ 
printf(“ERROR: MEMORY ALLOCATION”): 


exit(1); 
} 

II» 
{ 
p = new; 
Start = new; 
} 


else p->next = new; /* stick new element on end of list*/ 
new->next = NULL; 
new-»num, eirs = 0; 

p = new; 
} 

p->next = start, 
return (start); 
} 
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APPENDIX E 


RING 1 LLC_SINK MODULE CODE 
*sp. fddi sink.pr.c" 


/* Process model C form file: sp. fddi sink.pr.c */ 
/* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

#include “sp_fddi_sink.pr.h” 
FSM_EXT_DECS 


/* Header block */ 

/* Globals */ 

/* array format installed 20J AN94; positions 0-7 represent the asynch priority levels, PRIORITIES 
+ 1 */ 

/* represents synch traffic, and grand totals are as given in the original. */ 


#define PRIORITIES 8 /* 20JAN94 */ 
#define XMITTER_BUSY 0/*1OMAY94 */ 


#define LLC SOURCE_INPUT_STREAM 1 /*26JUL94*/ 
#define MAC INPUT STREAM 0 


static /* OSFEB94 */ 

double fddi2_sink_accum_delay = 0.0; 

Static /* OSFEB94 */ 

double  fddi2 sink, accum, delay a[PRIORITIES - 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0}; 

static /* OSFEB94 */ 

int fddi2 sink total pkts = 0; 

static /* OSFEBO94 */ 

int fddi2 sink total pkts a[PRIORITIES - 1] = (0, 0, 0, 0,0, 0, 0, 0, 0]; 

static /* OSFEB94 */ 

double fddi2_sink_total_bits = 0.0; 

Static /* OSFEB94 */ 

double  fddi2 sink total bits a[PRIORITIES - 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 
static /* OSFEB94 */ 
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double fddi2_sink_peak_delay = 0.0; 


static /* OSFEB94 */ 

double  fddi2 sink peak delay a[PRIORITIES - 2] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 
Static /* OSFEB94 */ 

int fddi2_ sink scalar write = 0; 

static /* OSFEB94 */ 


int pri2_set = 20; /* 20JAN94 */ 
double busy = 0.0; /* 10MAY94 */ 


/* Statistics used for command link:21APR94 */ 

static 

int fddilp2 total pkts - 0; 

static 

int fddilp2 total pkts a[PRIORITIES + 1] = {0, 0, 0, 0, 0, 0, 0, 0, 0}; 

Static 

double fddilp2_total_bits = 0.0; 

Static 

double fddilp2_total_bits_a[PRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 


/* Externally defined globals. */ 
extern doublefddi t opr []; 


/*12JAN94:attributes from the Environment file */ 
double Offered_Load; /* 12JAN94 */ 
double Asynch_Offered_Load; /* 12JAN94 */ 


/* transition expressions */ 
#define END_OF_SIM op_intrpt_typeQ == OPC INTRPT ENDSIM 


/* State variable definitions */ 


typedef struct 
{ 
FSM_SYS_STATE 
Gshandle sv thru2 gshandle; 
Gshandle sv m2 delay gshandle; 
Gshandle sv ete2 delay gshandle; 
Gshandle sv thru2 gshandle а(10); 
Gshandle sv m2 delay gshandle, a[10]; 
Gshandle sv ete2 delay gshandle a[9]. 
Gshandle sv t2 gshandle; 
Gshandle sv t2 gshandle a[10]. 
Objid sv my id; 


) sp fddi sink state; 
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#define pr_state_ptr 

#define thru2_gshandle 
#define m2_delay_gshandle 
#define ete2_delay_gshandle 
#define thru2_gshandle_a 
#define m2_delay_gshandle_a 
#define ete2_delay_gshandle_a 


((sp. fddi sink state*) SimI, Mod State Ptr) 
pr state ptr-^sv thru2 gshandle 

pr state ptr-^»sv m2 delay gshandle 

pr state ptr-^sv ete2 delay gshandle 

pr state ptr-^sv thru2 gshandle a 

pr state ptr-^sv m2 delay gshandle a 

pr state ptr-^sv ete2 delay gshandle a 


pr state ри->5у t2 gshandle 
pr state ptr-^sv t2 gshandle a 
pr state ptr-^sv my id 


*tdefine t2 gshandle 
*tdefine t2 gshandle a 
*tdefine my. id 


/* Process model interrupt handling procedure */ 


void 

sp. fddi sink () 
{ 
double delay, creat time; 
Packet* pkptr; 


Packet* ppp pkptr 
Packet* pkptr1 ; /*5APR94*/ 


int src addr, my адаг; 

int dest addr;/* 14A PRO4 */ 

Ici* from_mac_ici_ptr; 

double  fddi sink ttrt; 

char pk format[10]; 

int input stream; 

int fd index, FDDI frame. size; 


FSM ENTER (sp fddi sink) 


FSM BLOCK SWITCH 
{ 
/* Әзізесее- ДЕ аШақа с азаны талА ee eee NE / 
/** state (DISCARD) enter executives **/ 
FSM_STATE_ENTER_UNFORCED (0, state0. enter. exec, "DISCARD") 
{ 
/* determine the type of interrupt */ 
switch(op_intrpt_type()) 
{ 
/* check if transmitter is busy */ 
case OPC_INTRPT_STAT: 
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{ 
busy = op_stat_local_read (XMITTER_BUSY); 
break; 
} 
/* check if a packet has arrived */ 
case OPC_INTRPT_STRM: 
{ 
/* get the packet*/ 
input_stream = op intrpt strm(); 
pkptr - op pk get (input stream); 
op pk format(pkptr,pk format); 


/* if the packet is a ppp control packet from the llc. source */ 
if ((strcmp(pk format,"ppp')--0) &&(input srream -- LLC. SOURCE INPUT - 
STREAM)) 
{ 
/* bypass all this and send pkt out on the command link */ 
) 
else 

{ 
/* assume this is a FDDI frame */ 
from_mac_ici_ptr = op_intrpt_ici (); 


/* 20JAN94: get the packet's priority level, which */ 

/* will be used to index arrays of thruput and delay */ 

/* computations. */ 

/* pri2 set - op pk priority get (pkptr); doesn’t work here */ 
op pk nfd get (pkptr, "pri", &pri2 set); /* 29JANO94 */ 


/* determine the time of creation of the packet */ 
op. pk nfd get (pkptr, "cr time", &creat time); 


/* determine the dest address of the packet */ /*18APR94*/ 
op. pk nfd get (pkptr, "dest addr", &dest addr); 


/* 7APR94:determine id of own processor to use in finding */ 
/* station address of the bridge node */ 
my. id — op id self(); 


/* 14APR94 : also get my own address */ 
op. ima, obj attr get ( my. id, "station address", &my addr); 


/* destroy the packet */ 

/* op_pk_destroy (pkptr); */ 

/* 03FEB94: rather, enqueue the packet. This will be the */ 
/* first step toward developing a LAN bridging structure. */ 
/* -Nix */ 
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20APR94 */ 


/* ор subq pk insert (pri set, pkptr, OPC. QPOS. TAIL); */ 


/* 14APR94: check the frame passed to “lic” is destined for */ 
/* this station. If it is destroy the packet; if not, allocate the packets */ 
/* to the command link transmitter since they are destined for the remote lan */ 
/* -Karayakaylar */ 
/* determine the packets coming from surface stations, this will */ 
/* be counted for local traffic */ 
/* 9(nine) is model specific, this is the "station number" of */ 
/* collection platform bridge station */ 
if((dest_addr == my_addr)&&(src_addr > 9)) 
{ 
/* add in its size */ 
fddi2_sink_total_bits += op_pk_total_size_get (pkptr); 
fddi2_sink_total_bits_a[pri2_set] += op_pk_total_size_get (pkptr); /* 20JAN- 


/* accumulate delays */ 

delay = op_sim_time () - creat_time; 

fddi2_sink_accum_delay += delay; 
fddi2_sink_accum_delay_a[pri2_set] += delay; /* 20JAN-20APR94 */ 


/* keep track of peak delay value */ 
if (delay > fddi2_sink_peak_delay) 
fddi2 sink peak delay - delay; 


/* 20JANO94: keep track by priority levels as well 23JAN-20APR94 */ 
if (delay > fddi2 sink peak delay a[pri2 set]) 
fddi2 sink peak delay. a[pri2. set] 2 delay; 


op. pk destroy (pkptr); 


/* increment packet counter; 20JANO94 */ 
fddi2 sink total pkts--; 
fddi2 sink total pkts a[pri2 set]-—; 


/* if a multiple of 25 packets is reached, update stats */ 
/* 03FEB94: [0]->[7] represent asynch priorities 1->8, */ 
/* respectively; [8] represents synchronous traffic, */ 
/* and [9] represents overall asynchronous traffic.-Nix */ 
if (fddi2_sink_total_pkts % 25 == 0) 
{ 
op stat global write (thru2 gshandle, 
fddi2 sink total bits / op sim time (Q); 


op stat global write (thru2 gshandle, a[pri2 set], 
fddi2 sink total bits a[0] / op. sim time()); 
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op stat global write (thru2 gshandle a[0], 
fddi2 sink total bits a[1] / op. sim time(); 

op stat global write (thru2 gshandle a[1], 
fddi2 sink total bits a[pri2 set] / op. sim time()); 

op stat global write (thru2 gshandle a[2], 
fddi2 sink total bits a[2] / op sim time()); 

op stat global write (thru2 gshandle a[3], 
fddi2 sink total bits a[3] / op sim time()); 

op stat global write (thru2 gshandle a[4], 
fddi2 sink total bits a[4] / op sim time()); 

op stat global write (thru2 gshandle a[5], 
fddi2 sink total bits a[5] / op sim time()); 

op stat global write (thru2 gshandle a[6], 
fddi2 sink total bits a[6] / op sim time()); 

op stat global write (thru2 gshandle a[7], 
fddi2 sink total bits a[7] / op sim time()); 

op stat global write (thru2 gshandle a[8], 
fddi2 sink total bits a[8] / op sim time()); 


/* 30JAN94: gather all asynch stats into one overall figure */ 


op stat global write (thru2 gshandle a[9], 
(fddi2 sink total bits - fddi2 sink total bits a[8]) / 
op sim time()); 


/* (fddi2 sink total bits a[0] 4 fddi2 sink total 6115 а[1] + */ 
/* fddi2 sink total bits a[2] -- fddi2 sink total bits a[3] + */ 

/* fddi2 sink total bits a[4] -- fddi2 sink total bits a[5] 4 */ 

/* fddi2 sink total bits a[6] -- fddi2 sink total bits a[7]) / */ 

/* op sim time()); */ 


op stat global write (m2 delay gshandle, 
fddi2 sink accum, delay /fddi2 sink total pkts); 


op stat global write (m2 delay. gshandle, a[0], 
fddi2 sink accum delay a[0]/fddi2 sink total pkts a[0]); 
ор stat global write (m2 delay. gshandle  a[1], 
fddi2 sink accum delay a[1]/fddi2 sink total pkts a[1]); 
op stat global write (m2 delay. gshandle a[2]. 
fddi2 sink accum delay a[2]/fddi2 sink total pkts a[2]); 
op stat global write (m2 delay. gshandle a[3]. 
fddi2 sink accum, delay a[3]/fddi2 sink total pkts a[3]); 
op stat global write (m2 delay gshandle a[4], 
fddi2 sink accum delay. a[4] / fddi2 sink total pkts a[4]); 
op stat global write (m2 delay gshandle. a[5], 
fddi2 sink accum delay a[5]/fddi2 sink total pkts a[5]); 
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op_stat_global_write (m2_delay_gshandle_a[6], 
fddi2 sink accum, delay a[6]/ fddi2 sink total pkts a[6]); 
op stat global write (m2 delay gshandle a[7]. 
fddi2 sink ассит delay a[7]/ fddi2 sink total pkts a[7]); 
op stat global write (m2 delay gshandle a[$8], 
fddi2 sink accum, delay a[8]/fddi2 sink total pkts a[8]); 


/* 30JAN94: gather all asynch stats into one figure */ 
op. stat global write (m2 delay gshandle a[9], 
(fddi2 sink accum. delay - fddi2 sink accum delay. a[8]) / 
(fddi2 sink total pkts - fddi2 sink total pkts a[8])); 


/* (fddi2 sink accum delay a[0]- fddi2 sink accum delay a[1] * */ 
/* fddi2 sink accum delay a[2] * fddi2 sink accum delay a[3] 4 */ 

/ж fddi2 sink accum delay a[4] 4 fddi2 sink accum delay a[5] + */ 

/* fddi2 sink accum delay a[6] -fddi2 sink accum delay a[7])/ */ 

/ж (fddi2 sink total pkts a[0] - fddi2 sink total pkts a[1] - */ 

/* fddi2 sink total pkts a[2] + #1012 sink total pkts a[3] + */ 

/* fddi2 sink total pkts a[4] -- fddi2 sink total pkts a[5] * */ 

/* fddi2 sink total pkts a[6]-- fddi2 sink total pkts a[7])); */ 


/* also record actual delay values */ 
op_stat_global_write (ete2_delay_gshandle, delay); 
op. stat global write (ete2 delay gshandle a[pri2 set], delay); 
} 
}/*end of if(dest_addr==my_addr)&&/(src_addr > 9)statement */ 


/* 20APRO94: destroy the packets coming from the first lan destined */ 
/* for this station. These packets are not counted for local traffic.*/ 
else if(dest_addr == my_addr) 

op pk destroy(pkptr); 


/* Other frames passed to “lic” should be destined for other lan */ 
/* 18APR94 :allocate the packets to transmitter of command link */ 
else 


{ 


/* add in its size */ 

fddilp2 total bits --—- op pk total size get (pkptr); 

fddilp2 total bits a[pri2 set] - op pk total size get (pkptr); /* 20JAN- 
20APR94 */ 


/* increment packet counter; 20APR94 */ 
fddilp2_total_pkts++; 
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fddilp2_total_pkts_a[pri2_set]++; 


/* if a multiple of 25 packets is reached, update stats */ 
/* [0]-2[7] represent asynch priorities 1->8, */ 
/* respectively; [8] represents synchronous traffic, */ 
/* and [9] represents overall asynchronous traffic.-Nix */ 
if (fddilp2 total pkts % 25 == 0) 

{ 

op_stat_global_write (t2_gshandle, 

fddilp2_total_bits / op_sim_time ()); 


op_stat_global_write (t2_gshandle_a[pri2_set], 
fddilp2 total bits a[0] / op sim timeQ); 
op stat global write (t2 gshandle a[0], 
fddilp2 total bits a[1] / op sim йте()); 
op stat global write (t2 gshandle a[1], 
fddilp2 total bits a[pri2 set] / op. sim time()); 
op stat global write (t2 gshandle, a[2], 
fddilp2 total bits a[2] / op. sim time(); 
op stat global write (t2 gshandle a[3], 
fddilp2 total bits a[3] / op. sim timeQ); 
op stat global write (t2 gshandle a[4], 
fddilp2 total bits a[4] / op sim time()); 
op. stat global write (t2 gshandle, a[5], 
fddilp2 total bits a[5] / op. sim time(Q); 
op stat global write (t2 gshandle a[6], 
fddilp2 total bits a[6] / op sim time()); 
op stat global write (t2 gshandle a[7], 
fddilp2 total bits a[7] / op. sim time()); 
op stat global write (t2 gshandle a[8], 
fddilp2 total bits a[8] / op sim timeQ); 


/* gather all asynch stats into one overall figure */ 
op stat global write (t2 gshandle a[9], 
(fddilp2 total bits - fddilp2 total bits a[8]) / 
op sim time()); 


/* (fddilp2 total bits a[0] - fddilp2 total bits a[1] + */ 
/* fddilp2 total bits a[2] *- fddilp2 total bits a[3] + */ 

/* fddilp2 total bits a[4] * fddilp2 total bits a[5] + */ 

/* fddilp2 total bits a[6] -- fddilp2 total bits a[7]) / */ 

/* op sim timeQ); */ 
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/* 21 APR94:allocate packets to the command link transmitter */ 
/* altered for ppp 1AUG94 */ 
ppp_pkptr = op_pk_create_fmt(“ppp_ml!’’); 
op. pk nfd set (ppp. pkptr, "pid h", 0x00); 
op. pk nfd set (ppp pkptr, "pid 1", 0x3d); 
op pk nfd set(ppp pkptr, "FDDI frame", pkptr); 
/* put ppp packet on subqueue to be xmitted */ 
ор subq pk. insert(O, ppp pkptr, OPC QPOS TAIL); 


}/* end of else */ 
)/* end of else for (if ppp and from LLC source) */ 


/* check if this subqueue is empty and transmitter is not busy */ 
if ((!op_subq_empty(0))&&(busy == 0.0)) 

{ 

/*access the first packet in the subqueue */ 

pkptrl = op_subq_pk_remove (0, OPC QPOS HEAD); 
/* forward it to the transmitter of command link */ 

op_pk_send (pkptr1, 0); 

} 


break; 
}/* end of case OPC_INTRPT_STRM statement */ 


}/* end of switch */ 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (1,sp_fddi_sink) 


/** state (DISCARD) exit executives **/ 

FSM STATE EXIT UNFORCED (0, state0 exit exec, "DISCARD") 
{ 
} 
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/** state (DISCARD) transition processing **/ 
FSM_INIT_COND (END_OF_SIM) 
FSM_DFLT_COND 

FSM_TEST_LOGIC (“DISCARD”) 


FSM_TRANSIT_SWITCH 
{ 
FSM_CASE_TRANSIT (0, 1, statel1_enter_exec, ;) 
FSM CASE TRANSIT (1, 0, stateO enter. exec, ;) 
} 


/** state (STATS) enter executives **/ 
FSM_STATE_ENTER_UNFORCED (1, statel_enter_exec, “STATS’’) 

{ 

/* At end of simulation, scalar performance statistics */ 

/* and input parameters are written out. */ 

/* This is for command link throughput :21 APR94*/ 

op. stat scalar write ("CL Throughput (bps), Priority 1”, 
fddilp2 total bits a[0] / op sim time Q); 


ор. stat scalar write ("CL Throughput (bps), Priority 2", 
fddilp2 total bits a[1] / op. sim, time (); 


op. stat scalar write ("CL Throughput (bps), Priority 3”, 
fddilp2 total bits a[2] / op. sim time ()); 


op stat scalar write (CL Throughput (bps), Priority 4”, 
fddilp2 total bits a[3] / op. sim, time ()); 


op stat scalar write (“CL Throughput (bps), Priority 5", 
fddilp2 total bits a[4] / op. sim time Q); 


op stat scalar write (CL Throughput (bps), Priority 6", 
fddilp2 total bits a[5] / op. sim üme ()); 


op stat scalar write ("CL Throughput (bps), Priority 7", 
fddilp2 total bits a[6] / op sim time 0); 


op stat scalar write ("CL Throughput (bps), Priority 8", 
fddilp2 total bits a[7] / op. sim time ()); 


op. stat scalar write ("CL Throughput (bps), Asynchronous", 
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(fddilp2_total_bits - fddilp2_total_bits_a[8]) / op_sim_time ()); 


/* (fddilp2 total bits a[0] -- fddilp2 total bits а[1] + */ 
/* fddilp2 total bits a[2] *- fddilp2 total bits a[3] + */ 

/* fddilp2 total bits a[4] -- fddilp2 total bits a[5]  */ 

/* fddilp2 total bits a[6] -- fddilp2 total bits a[7]) / */ 

/* op. sim time ()); */ 


op. stat, scalar write (*CL Throughput (bps), Synchronous”, 
fddilp2 total bits a[8] / op sim time ()); 


op stat scalar write ("CL Throughput (bps), Total”, 
fddilp2 total bits / op sim time ()); 


/* Only one station needs to do this for the second ring(Ring 1)*/ 
if (!fddi2 sink scalar write) 

{ 

/* set the scalar write flag */ 

fddi2_sink_scalar_write = 1; 


op stat scalar write ("Mean End-to-End Delay-1 (sec.), Priority 1", 
fddi2 sink accum, delay. a[0] / fddi2 sink total pkts a[0]); 


op stat scalar write ("Mean End-to-End Delay-1(sec.), Priority 2", 
fddi2 sink accum, delay a[1]/ fddi2 sink total pkts a[1]); 


Op stat scalar write (“Mean End-to-End Delay-1 (sec.), Priority 3”, 
fddi2_sink_accum_delay_a[2] / fddi2_sink_total_pkts_a[2}); 


Op_stat_scalar_write (““Mean End-to-End Delay-1 (sec.), Priority 4", 
fddi2 sink accum, delay. a[3] / fddi2 sink total pkts a[3]); 


op stat scalar write ("Mean End-to-End Delay-1 (sec.), Priority 5”, 
fddi2 sink accum, delay. a[4] / fddi2 sink total pkts a[4]); 


op. stat scalar write (“Mean End-to-End Delay-1 (sec.), Priority 6”, 
fddi2 sink accum, delay. a[5] / fddi2 sink total pkts a[5]); 


op stat scalar write ("Mean End-to-End Delay-1 (sec.), Priority 7", 
fddi2 sink accum, delay a[6]/ fddi2 sink total pkts a[6]); 


Op stat scalar write (“Mean End-to-End Delay-1 (sec.), Priority 8”, 
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fddi2_sink_accum_delay_a[7] / fddi2_sink_total_pkts_a[7]); 


op. stat scalar write ("Mean End-to-End Delay-1 (sec.), Asynchronous", 
(fddi2 sink accum delay - fddi2 sink accum delay. a[8]) / 
(fddi2 sink total pkts - fddi2 sink total pkts a[8])); 


/* (fddi2 sink accum, delay. a[0]  fddi2 sink accum delay a[1] + */ 
/* fddi2 sink accum delay. a[2] * fddi2 sink accum delay a[3] + */ 
/* fddi2 sink accum delay. a[4] 4 fddi2 sink accum delay. a[5] + */ 
/ж fddi2 sink accum delay a[6]- fddi2 sink accum, delay а[7]) / */ 
/* (fddi2 sink total ркіѕ а[0] + #0012 sink total pkts a[1] + */ 
/* fddi2 sink total pkts a[2] 4 fddi2 sink total pkts a[3] + */ 
/* fddi2 sink total pkts a[4]  fddi2 sink total pkts a[5] 4 */ 
/* fddi2 sink total pkts a[6] -- fddi2 sink total pkts a[7])); */ 


op stat scalar write ("Mean End-to-End Delay-1 (sec.), Synchronous”, 
fddi2 sink accum delay a[8]/fddi2 sink total pkts a[8]); 


op stat scalar write ("Mean End-to-End Delay-1 (sec.), Total", 
fddi2 sink accum delay / fddi2 sink total pkts); 


op. stat scalar write ("Throughput-1 (bps), Priority 1", 
fddi2 sink total bits a[0]/ op sim time ()); 


op stat scalar write ("Throughput-1 (bps), Priority 2", 
fddi2 sink total bits a[1]/ op. sim time ()); 


op stat scalar write ("Throughput-1 (bps), Priority 3", 
fddi2 sink total bits a[2] / op sim time ()); 


op stat scalar write (“Throughput-1( bps), Priority 4", 
fddi2 sink total bits a[3] / op sim time ()); 


op stat scalar write (Throughput-1 (bps), Priority 5", 
fddi2 sink total bits a[4] / op sim tme ()); 


op stat scalar write ("Throughput-1 (bps). Priority 6", 
fddi2 sink total bits a[5] / op. sim time ()); 


op stat scalar write ("Throughput-1 (bps), Priority 7". 
fddi2 sink total bits a[6] / op sim time ()); 


op stat scalar write ("Throughput-1 (bps), Priority 8", 
fddi2 sink total bits a[7] / op sim time Q); 


op stat scalar write ("Throughput-1 (bps), Asynchronous”, 
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(fddi2_sink_total_bits - fddi2_sink_total_bits_a[8]) / op_sim_time ()); 


/* (fddi2 sink total bits a[0] -- fddi2 sink total bits a[1] + */ 
/* fddi2 sink total bits a[2] 4 fddi2 sink total bits a[3] + */ 
/* fddi2 sink total bits a[4] -- fddi2 sink total bits a[5] * */ 
/* fddi2 sink total bits a[6] -- fddi2 sink total bits a[7]) / */ 
/* op sim time ()); */ 


op stat scalar write (Throughput-1 (bps), Synchronous”, 
fddi2 sink total bits a[8] / op sim time ()); 


op stat scalar write ("Throughput-1 (bps), Total", 
fddi2 sink total bits / op sim time ()); 
op stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 1", 
fddi2 sink peak delay a[0]); 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 2", 
fddi2 sink peak delay а[1]); 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 3", 
fddi2 sink peak delay a[2]); 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 4", 
fddi2 sink peak delay а[3]); 


op. stat, scalar write ("Peak End-to-End Delay-1 (sec.), Priority 5”, 
fddi2 sink peak delay a[4]); 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 6", 
fddi2 sink peak delay a[5]) 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 7", 
fddi2 sink peak delay a[6]); 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 8”, 
fddi2 sink peak delay a[7]); 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Synchronous", 
fddi2 sink peak delay. a[8]); 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Overall", 
fddi2 sink peak delay); 
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/* Write the TTRT value for ring 0. This preserves*/ 

/* the old behavior for single-ring simulations.*/ 

op stat scalar write (“TTRT (sec.) - Ring 1”, 
Гай % орг (11); 


/* 12JAN94: obtain offered load information from the Environment */ 

/* file; this will be used to provide abscissa information that */ 

/* can be plotted in the Analysis Editor (see "fddi sink" STATS */ 

/* state. To the user: it’s your job to keep these current in */ 

/* the Environment File. -Nix */ 

op ima sim attr get (OPC IMA DOUBLE, "total offered load 1", &Offered Load); 

op ima sim attr get (OPC IMA DOUBLE, "asynch offered load 1", &Asynch Of- 
fered Load); 


/* 12JAN94: write the total offered load for this run */ 
op stat scalar write ("Total Offered Load-1 (Mbps)", 
Offered Load); 


op stat scalar write ("Asynchronous Offered Load-1 (Mbps)", 
Asynch Offered Load); 

} 
) 


/** blocking after enter executives of unforced state. **/ 
FSM EXIT (3,sp fddi sink) 


/** state (STATS) exit executives **/ 

FSM STATE EXIT UNFORCED (1, statel exit exec, "STATS") 
{ 
} 


/** state (STATS) transition processing **/ 
FSM_TRANSIT_MISSING (“STATS”) 


/** state (INIT) enter executives **/ 
FSM STATE ENTER FORCED (2, state2_enter_exec, “INIT’’) 


{ 
/* get the gshandles of the global statistic to be obtained */ 
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/ж 207АҺ94: set array format */ 


thru2_gshandle_a[0] = op_stat_global_reg (“pri 1 throughput-1 (bps)"); 
thru2_gshandle_a[1] = op_stat_global_reg (“pri 2 throughput-1 (bps)"); 
thru2 gshandle, a[2] 7 op stat global reg ("pri 3 throughput-1 (bps)"); 
thru2 gshandle a[3] 7 op. stat. global reg ("pri 4 throughput-1 (bps)”); 
thru2_gshandle_a[4] = op. stat. global reg (“pri 5 throughput-1 (bps)"); 
thru2 gshandle a[5] - op. stat. global reg ("pri 6 throughput- 1 (bps)”); 
thru2 gshandle a[6]- op. stat global reg ("pri 7 throughput-1 (bps)"); 
thru2 gshandle a[7] -» op. stat. global reg ("pri 8 throughput- 1 (bps)"); 
thru2 gshandle a[8] 7 op. stat. global reg ("synch throughput-1 (bps)'); 
thru2 gshandle a[9]- op stat global reg ("async throughput-1 (bps)’’); 
thru2 gshandle - op. stat. global reg (“total throughput-1 (bps)”’); 


m2 delay. gshandle a[0] - op stat global reg (pri 1 mean delay- 1 (sec.)’’); 
m2 delay gshandle a[1]- op. stat global reg (pri 2 mean delay-1 (sec.)’’); 
m2 delay gshandle a[2] — op. stat global reg ("pri 3 mean delay-1 (sec.)"); 
m2 delay gshandle a[3] = op. stat global reg ("pri 4 mean delay-1 (sec.)'); 
m2 delay gshandle а[4] = op. stat global reg (pri 5 mean delay-1 (sec.)); 
m2 delay. gshandle a[5] 2 op stat global reg (pri 6 mean delay-1 (sec.)"); 
m2 delay gshandle a[6] - op. stat. global reg ("pri 7 mean delay-1 ($ес.)”); 
m2 delay gshandle a[7] - op. stat global reg ("pri 8 mean delay-1 (sec.)"); 
m2 delay gshandle a[8] — op. stat. global reg ("synch mean delay-1 (sec.)”’); 
m2 delay gshandle a[9] 2 op stat global reg ("async mean delay-1 (sec.)"); 
m2 delay gshandle = op stat global reg (total mean delay-1 (sec.)”); 


ete2 delay gshandle a[0] — op. stat. global reg (pri 1 end-to-end delay-1 (sec.)"); 
ete2 delay gshandle a[1] — op. stat. global reg (“pri 2 end-to-end delay-1 (sec.)”’); 
ete2 delay gshandle а[2] = op. stat. global reg (“pri 3 end-to-end delay-1 (sec.)’’); 
ete2 delay gshandle а[3] = ор stat global reg ("pri 4 end-to-end delay-1 (sec.)’’); 
ete2 delay gshandle а[4] = op. stat. global reg (“pri 5 end-to-end delay-1 (sec.)’’); 
ete2 delay gshandle a[5] 2 op. stat. global reg ("pri 6 end-to-end delay-1 (sec.)’’); 
ete2 delay gshandle a[6] - op. stat. global reg ("pri 7 end-to-end delay-1 (sec.)’’); 
ete2 delay gshandle a[7] - op. stat. global reg (pri 8 end-to-end delay-1 (sec.)"); 
ete2 delay gshandle a[8] - op stat global reg ("synch end-to-end delay-1 (sec.)"); 
ete2 delay gshandle — op. stat. global reg ("total end-to-end delay-1 (sec.)’’); 


t2 gshandle a[0] 2 op stat. global, reg ("pri 1 CL throughput (bps)"); 
t2 gshandle a[1] 2 op stat global reg (“pri 2 CL throughput (bps)"); 
t2 gshandle a[2] 2 op stat global, reg ("pri 3 CL throughput (bps)'); 
t2 gshandle a[3] = op. stat. global reg ("pri 4 CL throughput (bps)); 
(2 gshandle a[4] — op. stat. global reg ("pri 5 CL throughput (bps)”’); 
t2 gshandle a[5] - op. stat global reg ("pri 6 CL throughput (bps)’’); 
t2 gshandle a[6] 2 op. stat. global reg (“pri 7 CL throughput (bps)’”’); 
t2 gshandle a[7] 7 op. stat. global reg (pri 8 CL throughput (bps)"); 
t2 gshandle a[8] 7 op. stat. global reg ("synch CL throughput (bps)"); 
t2 gshandle a[9] 2 op. stat global reg ("async CL throughput (bps)"); 
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t2 gshandle - op stat global reg ("total CL throughput (6рѕ)”); 


/** state (INIT) exit executives **/ 

FSM, STATE EXIT FORCED (2, state2 exit exec, ^INIT") 
{ 
} 


/** state (INIT) transition processing **/ 
FSM_INIT_COND (END_OF_SIM) 
FSM_DFLT_COND 

FSM ТЕ5Т ІОСІС(“ІМІТ” 


FSM_TRANSIT_SWITCH 


{ 
FSM_CASE_TRANSIT (0, 1, statel enter exec, ;) 
FSM, CASE TRANSIT (1, O, stateO enter exec, ;) 


FSM EXIT (2,sp fddi sink) 
) 


void 

sp fddi sink svar (prs ptr,var name,var p ptr) 
sp fddi sink state*prs ptr; 
char  *var name, **var p ptr; 


{ 
FIN (sp_fddi_sink_svar (prs_ptr)) 
*var_p_ptr= VOS_NIL; 


if (Vos String Equal ("thru2 gshandle", var name)) 
*var p ptr - (char *) (&prs_ptr->sv_thru2_gshandle), 
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if (Vos_String Equal (““m2_delay_gshandle” , var_name)) 
*var_p_ptr = (char *) (&prs_ptr->sv_m2_delay_gshandle); 
if (Vos String Equal (*ete2 delay gshandle" , var name)) 
*var p ptr - (char *) (&prs ptr-»sv. ete2 delay. gshandle); 
if (Vos, String Equal ("thru2 gshandle a", var name)) 
*уаг р ріг = (char *) (prs ptr-»sv. thru2 gshandle а); 
if (Vos String Equal ("m2 delay gshandle a", var name)) 
*var p. ptr — (char *) (prs ptr-»sv m2 delay gshandle, a); 
if (Vos String Equal ("ete2 delay  gshandle a", var name)) 
*var p ptr — (char *) (prs ptr-»sv ete2 delay gshandle a); 
if (Vos String Equal ("t2 gshandle" , var пате)) 
*var p ptr - (char *) (&prs ptr-»sv t2 gshandle); 
if (Vos String Equal ("t2 gshandle a", var name)) 
*var p ptr — (char *) (prs ptr-5sv t2 gshandle a); 
if (Vos String Equal (*my. id" , var name)) 
*var p. ptr 2 (char *) (&prs ptr-^»sv my id); 


FOUT, 
) 


void 
өр Гай ѕіпк фар () 
{ 
double delay, creat_time; 
Packet*pkpt; 
Packet*ppp_pkptr; 
Packet* pkptr1 ; /*5APR94*/ 
int src, addr, my. addr; 
int dest addr;/*14APR94*/ 
Ici* бот тас ісі рі; 
double fddi sink ttrt; 
char pk format[10]; 
int input stream; 
int fd index, FDDI frame. size; 


FIN (sp. fddi sink diag ()) 


FOUT, 
) 
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void 
sp_fddi_sink_terminate () 
{ 
double delay, creat_time; 
Packet*pkptr; 
Packet*ppp. pkptr; 
Packet* pkptr1 ; /*5APR94*/ 
int src адаг, ту адаг; 
int dest_addr;/*14APR94*/ 
Ici* from mac ici ptr; 
double fddi sink ttrt; 
char pk format[10]; 
int input stream; 
int fd index, FDDI frame size; 


FIN (sp. fddi sink terminate ()) 


FOUT, 
) 


Compcode 
sp fddi sink init (pr state pptr) 
sp fddi sink state**pr state pptr; 
{ 
static VosT_Cm_Obtypeobtype = OPC_NIL; 


FIN (sp_fddi_sink_init (pr_state_pptr)) 


if (obtype == OPC_NIL) 
{ 
if (Vos Catmem, Register ("proc state vars (sp fddi sink)", 
sizeof (sp. fddi sink state), Vos Nop, &obtype) 2-2 VOSC FAILURE) 
ЕКЕТ (ОРС COMPCODE FAILURE) 
) 


if (C*pr state pptr - (sp. fddi sink state*) Vos Catmem, Alloc (obtype, 1)) 22 OPC NIL) 
FRET (OPC. COMPCODE FAILURE) 
else 
{ 
(*pr_state_pptr)->current_block = 4; 
FRET (OPC_COMPCODE_SUCCESS) 
} 
) 
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APPENDIX F 


ENVIRONMENT FILE EXAMPLE 


*rund.ef^ 


# cdl4_1b0jam0.ef 

# sample simulation configuration file for 

# two interconnected 10 station network in the 

# existence of pulsed jammer interference (137.088 Mbps channel hierarchy ) 
# with circular allocation load balancing algorithm 


#*** Attributes related to loading used by “fddi_gen” *** 


# Station addresses 

* ringO.f0.mac.station_address: 
* ringO.f1.mac.station, address: 
* ringO.f2.mac.station, address: 
* ringO.f3.mac.station, address: 
* ringO.f4.mac.station, address: 
* ringO.f5.mac.station, address: 
* ringO.f6.mac.station, address: 
* ringO.f7.mac.station, address: 
* ringO.f8.mac.station address: 
* ringO.f9.mac.station address: 


\О со 3 С^ л Боом но 


* ringl.fÜ0.mac.station address: 10 
* ringl.fl.mac.station address: 11 
* ringl.f2.mac.station address: 12 
* ring1.f3.mac.station, address: 13 
* ring 1.f4.mac.station_address: 14 
* ringl.f5.mac.station address: 15 
* ringl.f6.mac.station address: 16 
* ringl.f7.mac.station, address: 17 
* ringl.f8.mac.station address: 18 
* ringl.f9.mac.station address: 19 


* ring0.*.mac.ring id :0 
* ringl.*.mac.ring id :1 


# Specific stations may be tailored by specifying the full name: 
# for example, top.ring0.f19.Uc_src.async_mix : .5 

# This means all stations must be specified, or individuals 

# may be named after the generic is specified. 
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# destination addresses for random message generation 
#”* * lic _src.low dest address” : 9 

i**]c src.high dest address" : 9 

$?'top.ringO.f0.llc src.low dest address" : 
#’top.ringO.f0.Uc_src.high dest address" : 


** ringO.*.llc src.low dest address": 10 
** ring0.*.llc src.high dest address": 19 
** ringl1.*.llc src.low dest address": 0 

“* ring1.* lic_src.high dest address”: 19 


# range of priority values that can be assigned to packets; FDDI 

# standards allow for 8 priorities of asynchronous traffic. MIL3’s 

# original model is modified to allow each station to generate multiple 
# priorities, within a specified range. 

“ж ж ]lc src.high pkt priority" : 7 

“жж llc src.low pkt priority" : O 


# arrival rate(frames/sec), and message size (bits) for random message 
# generation at each Station on the ring. 

“ж * * arrival rate”: 250 

“* * * mean pk length” : 20000 

# ring0.f9.*. arrival rate”: 0 

# Ting0.f9.*.mean pk length’: 0 

#’ Ting 1.f9.* arrival rate”: 0 

# ring 1.f9.*.mean pk length’’: 0 


# 7APR94 - S.Karayakaylar 

# determine which load balancing algorithm is in use in the 
# local bridge station (linking node). 

# User should specify the algorithm before simulation. 

# 

# 0 (zero) ----» circular load balancing algorithm (default) 
#1 (one) ----> empty allocation algorithm 
“top.ring0.f9.lc_sink.load balancing algonthm’’:0 


$t 15JUNO94 - Ike 

# determine rate at which link monitoring packets will be sent (secs/pkt) 
# and size of pkt (bits) 

“top.ring0.f9.lic_sink.link monitor_trans_rate’’:0.000729 
“top.ring0.f9.lic_sink.monitoring pkt size’’:5000 

# 1 % overhead 


# 26JUL94 - Ike 
# attributes related to link monitoring and LQR’s 
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# LOR transmission delta - the change in the ratio of 

# (bad packets/total pkts in history) when an LOR will be transmitted 

# ex: .1 means that an LOR will be sent when the ratio changes by 10% 
# hysteresis thresholds determine when to declare a change in the link status 
#these also are based on the ratio of bad packets/total pkts in history 

# history length is the size of the linked list which holds the number of errors 
#in the last x monitoring packets 

“жж ТҰ LOR transmission delta’’:0.099 

“жж f£9.* upper hysteresis threshold’’:0.5 

“* * f9.* lower hysteresis threshold’’:0.3 

“ж ж f9.* history length":50 

"top.ring1.f9.*.ecc threshold":0.005 

#18AUG94 - Ike 

#allow xmission rates to be set at env. file The corresponding xmtr/rcvr 
#rates should be the same. (bits/sec) 

"ringO.f9.pt 1[0].data rate": 1530000 

"ringl.f9.pr 1[0].data rate :1530000 

"ringO.f9.pt 2[0].data rate": 3060000 

“ring 1.f9.pr_2[0].data rate”: 3060000 

"ringO.f9.pt. 3[0].data rate": 21420000 

"ringl.f9.pr 3[0].data rate": 21420000 

"ringO.f9.pt 4[0].data rate": 42840000 

"ringl1.f9.pr 4[0].data rate": 42840000 


# 15APR94 :determine the station address of the bridge node in 
# both rings. 

“top.ring0.f9.lic_sink.station_address’’:9 

"top.ringl.fO.llc sink.station address":19 


# 12DEC93: total offered load is the sum of all stations’ loads (Mbps). 
# Compute this by hand; this value is useful for generating 

# scalar plots where offered load is the abscissa. 
total_offered_load_0: 0.18 

asynch_offered_load_0 : 0.162 

total_offered_load_1: 0.18 

asynch_offered_load_1 : 0.162 


# set the proportion of asynchronous traffic 

# a value of 1.0 indicates all asynchronous traffic 
“жж ж async mix" : 0.9 

*'"'top.ringO.f9.llc src.async mix": 


#*** Ring configuration attributes used by “fddi_mac” *** 
# allocate percentage of synchronous bandwidth to each station 


# this value should not exceed | for all stations combined; OPNET does not 
# enforce this; 01FEB94: this must be less than 1; see equation below 
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“* * mac.sync bandwidth” : 0.08955675 
#”top.ring0.f9.mac.sync bandwidth’: 0.0 


# Target Token Rotation Time (one half of maximum synchronous response time) 
# (This is commented out for compatibility with the fddi_script, which 

# sets T_Req on the simulation command line; remove the comment pound-sign 
# below to make this environment file self-sufficient.) 


# SUM(SAi) + D_Max + F_Max + Token_Time <= TTRT 

# Powers gives TIRT = 10 ms as necessary for voice transmission; in “BONeS”, 
#0 Мах + Е Мах + Токеп Тіпе = 1.97888 ms. 

“жж тас.Т Кед” :.004 


# Index of the station which initially launches the token 

# 17APR94 : -Karayakaylar 

# This index should be greater than the maximum station number 

# Bridge stations spawns token for interconnected simulation by default. 
"spawn station’’:20 


# Delay incurred by packets as they traverse a station’s ring interface 
# see Powers, p. 351 for a discussion of this (Powers gives lusec, 

# but 60.0e-08 agrees with Dykeman & Bux) 

station latency:60.0e-08 


# Propagation Delay separating stations on the ring. 

# If propagation delay is 5.085 microsec/km, this corresponds to 

# to a 50 station ring with a circumference of 50 km. 

# (The value given for propagation delay corresponds to Powers, and to 
# Dykeman & Bux) 

prop delay:5.085e-06 


# CDL link related attributes -Karayakaylar 7APR94 

# The attributes below are specified with respect to the jammer type 

# There are two types of jamming models which the CDL is exposed to. 

# 

# (1) Pulsed jammer (jammer_type = 0) 

#(2) Channel-swept jammer (jammer_type = 1) 

% 

# NOTE:For pulsed jammer init_jam_offset may be zero, whereas a proper 
# offset should be specified for channel-swept jammer. 

# jam_length, jam_ber, interval bet jam len, ber bet jam len are maximum 
# values in the case of pulsed jammer since they are randomized in the 
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# error allocation pipeline stage. 
# For channel-swept jammer only jam_ber and ber_bet_jam_len attributes are 
# maximium values to be randomized. 
# return link ls_Otols_3 

# command link 1s 4 
*1s_O.jam_length: 0.05 

*]s 1.jam length: 0.02 

*]s 2.jam length: 0.01 

*]s 3.jam length: 0.09 

* ]s 4.jam length: 0.05 

* |s 0.jam ber: 2e-3 

*]s 1.јат Бег: 2е-3 

*]s 2.jam ber: 2e-3 

* ]s 3.jam ber: 2e-3 

* 15 4.јат Бег: 0.0 

* Is _O.interval_bet_jam_len: 0.03 
* 15 l.interval bet jam len: 0.03 
*]s 2interval bet jam len: 0.03 
*]s 3.interval bet jam len: 0.03 
*]s 4interval bet jam len: 0.03 
* ]s O.ber bet jam len: 2e-6 
*]s l.ber bet jam len: 2e-6 

*]s 2.ber bet jam len: 2e-6 
*]s 3.ber bet jam len: 2e-6 

* ]s. 4.ber bet jam len: 0.0 

*]s O.init jam offset: 0.0 

*]s l.init jam, offset: 0.0 

*]s 2.init jam, offset: 0.0 

*]s 3init jam offset: 0.0 

*]s 4init jam offset: 0.0 

* ]s. 0.jammer type: 1 

* 15 _ 1.јаттег гуре: 1 

*]s 2.jammer type: 1 

* 15 3.jammer type: 1 

* 15 4.јаттег гуре: 0 


# Return and command link propagation delays are specified as 60 msec. 
* ]s O.delay: 0.06 
* ]s l.delay: 0.06 
* Is_2.delay: 0.06 
* 15 3.delay: 0.06 
* ]s. 4.delay: 0.06 


#*** Simulation related attributes 


# Token Acceleration Mechanism enabling flag. 
# It is reccomended that this mechanism be enabled for most situations 
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# 16APR94 : for bridged fddi_cdl_interconnection network this flag 
# must be zero. Otherwise, program fault occurs. -Karayakaylar 

# error documented on MIL3 bbs - Ike 

accelerate_token:0 


# Run control attributes 
seed: 10 

#duration: 10.001 
verbose_sim:TRUE 
upd_int:.1 

#os_file: 


# (This is commented out for compatibility with the fddi_script, which 

# sets the output vector file on the simulation command line; remove the 

# comment pound-sign below to make this environment file self-sufficient.) 
*ov file: 


# Opnet Debugger (odb) enabling attribute 
debug:FALSE 
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APPENDIX G 


OPNET C-SHELL SCRIPT FILE EXAMPLE 
*opnet script" 


*! /bin/csh -f 
setenv debug FALSE 
cd $HOME/op. models/cdl 


fddi_cdl.sim -ov_file tester8_1 -ef runl \ 
-probe fddi_cdl_probe_special -duration 10.001 


fddi_cdl.sim -ov_file tester8_2 -ef run2\ 
-probe fddi_cdl_probe_special -duration 10.001 


fddi_cdl.sim -ov_file tester8_3 -ef run3 \ 
-probe fddi_cdl_probe_special -duration 10.001 


fddi_cdl.sim -ov_file tester8_4 -ef run4\ 
-probe fddi_cdl_probe_special -duration 10.001 
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APPENDIX H 


TCP RING 0 LLC_SRC MODULE CODE 
“cp_fddi_gen_tcp.pr.c”’ 


/* Process model C form file: cp. fddi gen tcp.pr.c */ 
/* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

*tinclude "cp. fddi gen tcp.pr.h" 
FSM EXT DECS 


/* Header block */ 

define MAC LAYER, OUT STREAM 0 

define LLC. SINK OUT STREAM 1 /*18APR94*/ 
#define RECEIVER_IN_ STREAM 0 

#define IP_IN STREAM 1 


/* define possible service classes for frames */ 
#define FDDI_LSVC_ASYNCO 
#define FDDI_SVC_SYNC 1 


/* define token classes */ 
define FDDI T&K NONRESTRICTED 0 
define FDDI TK RESTRICTED 1 


/* ADDITIONS AFTER HERE 105 ЕР94 */ 


/* this can be used if checking to ensure incoming IP dgrams */ 
#define NET_PROT_IP 0х0800 


/* State variable definitions */ 
typedef struct 
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{ 
FSM_SYS_STATE 


Objid Sv_mac_objid; 
Objid sv my id; 

int sv station addr; 
int sv src addr; 
double sv arrival rate; 
double sv mean pk len; 
double sv async mix; 
Ici* sv mac, iciptrl; 
Ici* sv llc iciptr; 


Packet* ^ sv pkptrl; 
) cp fddi gen tcp state; 


*tdefine pr state ptr 
#define mac_objid 
#define my_id 
#define station_addr 
#define src_addr 
#define arrival_rate 
#define mean_pk_len 
#define async_mix 
#define mac_iciptrl 
#define Uc_iciptr 
#define pkprrl 


((cp_fddi_gen_tcp_state*) SimI_Mod_State_Ptr) 
pr_state_ptr->sv_mac_objid 
pr_state_ptr->sv_my_id 
pr_state_ptr->sv_station_addr 
pr_state_ptr->sv_src_addr 
pr_state_ptr->sv_arrival_rate 
pr_state_ptr->sv_mean_pk_len 
pr_state_ptr->sv_async_mix 
pr_state_ptr->sv_mac_iciptrl 
pr state ptr-»sv llc iciptr 

pr state ptr-^sv pkptrl 


/* Process model interrupt handling procedure */ 


void 
cp fddi gen tcp () 
{ 


Packet *pkptr, *ppp pkptr, *ip pkptr. *mac frame ptr, 


int pklen; 
int dest. addr; 
int i, restricted; 


int ррр ріа Һ,ррр ріа |І; 


int Status; 
double creation_time; 
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Ici *ip iciptr; 


FSM ENTER (cp fddi gen tcp) 


FSM BLOCK SWITCH 


/** state (INIT) enter executives **/ 
FSM_STATE_ENTER_UNFORCED (0, state0 enter exec, "INIT") 
{ 
/* determine id of own processor to use in finding attrs */ 
my id = op_id_self (); 


/* determine object id of connected ‘mac’ layer process */ 
mac objid - op topo assoc (my. id, ОРС TOPO ASSOC OUT, 
OPC OBJMTYPE MODULE, MAC LAYER OUT STREAM); 


/* determine the address assigned to it */ 
/* which is also the address of this station */ 
op ima obj attr get (mac objid, "station, address", &station адаг); 


/* set up an interface control information (ICI) structure */ 
/* to communicate parameters to the mac layer process */ 
/* (it is more efficient to set one up now and keep it */ 
/* as a state variable than to allocate one on each packet xfer) */ 
mac iciptrl — op ici create ("fddi mac req tcp"); 
llc iciptr 2 op ici create ("fddi mac, ind tcp"); 


} 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (1,cp_fddi_gen_tcp) 


/** state (INIT) exit executives **/ 

FSM STATE EXIT UNFORCED (0, state0 exit exec, ^INIT") 
{ 
} 


/** state (INIT) transition processing **/ 
FSM_TRANSIT_FORCE (1, statel_enter_exec, ;) 
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/** state (ARRIVAL) enter executives **/ 
FSM_STATE_ENTER_UNFORCED (1, statel_enter_exec, “ARRIVAL’) 
{ 
/* This station should receive frames from the other lan as long as */ 
/* there are frames in the input streams addressed to this lan */ 
/*check if the interrupt type is stream interrupt *//* 12APR94*/ 
if((op  intrpt typeO 22 OPC INTRPT STRM) && (op intrpt strm() 2- 
RECEIVER. IN STREAM)) 
{ 
/* if it is, get the packet in the input stream causing interrupt */ 
ppp_pkptr = op_pk_get(op_intrpt_strm()); 
op. pk nfd get (ppp. pkptr, "pid, h",&ppp. pid. b); 
switch (ppp. pid, h) 
{ 
case 0x00: /* data frame */ 
op pk nfd get (ppp pkptr, "FDDI frame", &pkptr1); 
op pk destroy (ppp. pkptr); 
/* 11S EP94 get ICI associated with FDDI LLC frame */ 
llc. iciptr —- op. pk ici. get (pkptr1); 


/* get the destination address of the frame */ 
/* 16APR94 */ 
op_ici_attr_get(Uc_iciptr, “dest_addr’’, &dest_addr); 
/* check if this frame destined for the local bridge station */ 
if(dest_addr == station_addr) 
{ 
/* if it is, send the packet to llc, sink directly */ 
/* in order to prevent overhead of mac access */ 
op. ici install (llc, iciptr); 
op. pk send(pkprl, LLC SINK OUT STREAM);/* 19APR94*/ 
} 
else 
/* this packet is to be sent to MAC */ 
{ 
/* determine the source address of the frame */ 
Op ici attr рес iciptr, "src addr", &src_addr); 
/* set up an ICI structure to communicate parameters to */ 
/* MAC layer process (initialized in INIT state)*/ 
/* place the original source address into the ICI *//* 16APR94 */ 
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/* “fddi_mac_req’’ is modified so that it contains the original */ 
/* source address from the remote lan */ 
Op ici attr set(mac iciptrl, "src addr", src, addr); 
/* place the destination address into the ICI */ /* 12APR94*/ 
Op ici attr set(mac, iciptrl, "dest addr", dest addr); 
/* assign the service class and requested token class */ 
/* At this moment the frames coming from the remote lan are assumed to have*/ 
/* the same priority as synchronous frames in order not to accumulate */ 
/* packets on the bridge station mac and instead to deliver their destinations */ 
/* as soon as possible */ 
/* 10S EP94: I don’t know why Selcuk did this, so I'll leave the values */ 
/* but change to conform with the new packet/ICI formats */ 
Op.ici attr set(mac, iciptrl, "svc class", FDDI SVC SYNC); 
ор. ісі айт set(mac , iciptrl, "pri", 8); 
Op ici attr set(mac, iciptrl, "tk class", FDDI TK NONRESTRICTED); 
op ici attr get(mac iciptrl, "cr time", &creation time); 
ор. ісі айт set(mac, iciptrl, "cr time", creation time); 
/* send the packet coupled with the ICI */ 
op. ici install(mac, iciptr1); 
op pk send(pkptrl, MAC LAYER OUT STREAM), 
) 
break; 


case OxcO: /* ppp control packet - either LOR or monitoring pkt*/ 
/* Since the command link is deemed unjammable, this should */ 
/* only be for LOR's. Simply delete them for now until a*/ 
/* policy is determined on how to handle the LOR’s.*/ 
op pk nfíd get (ppp pkptr, "LOR info", &status); 
printf (“LOR received at cp “); 
Switch (status) 
{ 
case 0: printf (“status GOOD trend DOWN\n”); 
case 1: printf (“status GOOD trend UP"); 
case 2: printf (“status BAD trend DOWN\n’”’); 
case 3: printf (“status BAD trend UP\n”); 
} 


op. pk destroy (ppp pkptr): 
break; 


default: 
printf (ERROR: packet rcvd at cp: neither data nor controln’’); 
break; 

) /* end switch */ 
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} /* end if (op_intrpt_type()==OPC_INTRPT_STRM) && */ 
/* (op_intrpt_strm() == RECEIVER_IN_STRM))*/ 


/* otherwise, it's an IP dgram. Find destination and send */ 
/* ALL PAST THIS POINT: edited 11SEP94 */ 
else if ((op_intrpt_typeQ==OPC_INTRPT_STRM) && (op_intrpt_strm() == 
IP IN STREAM)) 
{ 
/* get IP dgram and associated ICI */ 
ip_pkptr = op_pk_get (op_intrpt_strm()); 
ip_iciptr = op intrpt 1с10); 


/* put IP dgram in FDDI LLC frame */ 

pkptr 2 op. pk create fmt ("fddi llc fr tcp"); 

/* Further explanations of this format is in "llc src. fddi tcp" ARRIVAL state*/ 
op pk nfd set (pkptr, "datagram",ip  pkptr); 


op ici attr get (ip iciptr, "dest addr", &dest addr); 
if(dest_addr > 9) 
{ 

/* if it is, this packet is to be sent llc. sink directly */ 
/* for xmsn to the remote LAN. The LLC frame must be*/ 
/* also have an ICI, as if the frame was coming from the MAC*/ 
Op. ici attr set (llc iciptr, "dest addr'", dest addr); 
Op. ici attr set (llc iciptr, "src. addr', station addr); 
ор. ісі айт set (llc iciptr, "pri", 0); 
Op ici attr set (llc iciptr, "cr time", op sim time()); 


/* install LLC ICI and send frame to LLC sink */ 
Op. ici, install (llc iciptr); 
op. pk send (llc iciptr, LLC. SINK OUT. STREAM); /*18APR94*/ 
) 
else 
/* if not, the packet is destined for local lan, so send LLC*/ 
/* frame to MAC */ 
{ 
/* set up an ICI structure to communicate parameters to */ 
/* MAC layer process (initialized in INIT state)*/ 
/* place the this station’s address into the ICI *//* 16APR94 */ 
Op_ici_attr_set(mac_iciptrl, “src_addr’’, station_addr); 
/* place the destination address into the ICI */ /*12APR94*/ 
ор. ісі айт set(mac iciptrl, "dest addr", dest addr); 
/* assign the service class and token class LAW RFC 1390*/ 
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Op. ici attr set(mac. iciptrl, "svc class", FDDI_LSVC_ASYNC); 

Op ici attr set(mac iciptrl, "pri", 0); 

Op. ici attr set(mac, iciptr1l, "tk class", FDDI TK NONRESTRICTED); 
op. pk nfd get (pkptrl, "cr time", &creation time); 

ор. ісі айт set(mac iciptrl, "cr time", creation time); 


/* send the packet coupled with the ICI */ 
op. ici install(mac  iciptr1); 
op. pk send (pkptr, MAC LAYER OUT STREAM); 


) /* end else (if((op_intrpt_typeQ == OPC_INTRPT_STRM) && */ 
/*(op_intrpt_strm() == IP_IN_STREAM)) */ 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (3,cp_fddi_gen_tcp) 


/** state (ARRIVAL) exit executives **/ 

FSM STATE EXIT UNFORCED (1, statel exit exec, ARRIVAL") 
{ 
} 


/** state (ARRIVAL) transition processing **/ 
FSM TRANSIT FORCE (1, state] enter exec, ;) 


FSM EXIT (O,cp. fddi gen tcp) 
) 
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void 

cp fddi gen tcp svar (prs ptrvar name,var p. ptr) 
cp fddi gen tcp state*prs ptr; 
char  *var name, **var p ptr; 


{ 
FIN (cp_fddi_gen_tcp_svar (prs_ptr)) 


*var p. ptr z VOS_NIL; 

if (Vos String Equal (*mac, objid" , var. name)) 
*var p ptr 2 (char *) (&prs ptr-»sv mac objid); 

if (Vos String Equal (*my. id" , var name)) 
*var p ptr — (char *) (&prs. ptr-^sv. my. id); 

if (Vos String Equal ("station addr" , var name)) 
*var p ptr (char *) (&prs ptr-»sv station addr); 

if (Vos String Equal ("src addr" , var name)) 
*var p ptr — (char *) (&prs. ptr-5sv. src. addr); 

if (Vos String Equal ("arrival rate" , var name)) 
*var p ptr — (char *) (&prs ptr-»sv. arrival rate); 

if (Vos String Equal ("mean pk len", var name)) 
*var p ptr — (char *) (&prs ptr-»sv mean pk len); 

if (Vos String Equal ("async mix", var name)) 
*var p ptr — (char *) (&prs ptr-»sv async mix); 

if (Vos String Equal (*mac  iciptrl", var name)) 
*var p ptr — (char *) (&prs ptr-»sv mac iciptr1); 

if (Vos String Equal ("llc iciptr" , var name)) 
*var p ptr — (char *) (&prs ptr-»sv llc iciptr); 

if (Vos String Equal ("pkptr1" , var name)) 
*var p ptr - (char *) (&prs ptr-»sv. pkptr1); 


FOUT, 
} 


void 
cp_fddi_gen_tcp_diag () 
| 
Packet *pkptr, *ppp pkptr, *ip pkptr, *mac frame, ptr; 
int pklen; 
int dest addr; 
int i, restricted; 
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int ppp pid h, ppp pid 1; 
int status; 

double creation time; 

Ici *jp. iciptr; 


FIN (cp. fddi gen tcp diag Q) 


FOUT; 


void 
cp. fddi gen tcp terminate () 
{ 
Packet *pkptr, *ppp. pkptr, *ip pkptr, *mac frame ptr; 
int pklen; 
int dest addr; 
int i, restricted; 
int ppp. pid h, ppp. pid |; 
int status; 
double creation time; 
Ici *jp iciptr; 


FIN (cp. fddi gen tcp terminate ()) 


FOUT, 


Compcode 

cp. fddi gen tcp init (pr state pptr) 
cp. fddi gen tcp state**pr state pptr. 
| 


static VosT Cm Obtypeobtype 2 OPC  NIL; 
FIN (cp. fddi gen tcp init (pr. state pptr)) 


if (obtype == OPC_NIL) 
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{ 

if (Vos_Catmem_Register (“proc state vars (cp. fddi gen tcp)", 
sizeof (cp. fddi gen tcp. state), Vos Nop, &obtype) -- VOSC FAILURE) 
FRET (OPC. COMPCODE FAILURE) 

} 


if ((*pr_state_pptr = (cp_fddi_gen_tcp_state*) Vos_Catmem_Alloc (obtype, 1)) == OPC_NIL) 
FRET (OPC_COMPCODE_FAILURE) 
else 
{ 
(*pr_state_pptr)->current_block = 0; 
FRET (OPC_COMPCODE_SUCCESS) 
} 
} 
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APPENDIX I 


TCP RING 0 LLC_SINK MODULE CODE 
*cp. fddi sink, tcp.pr.c" 


/* Process model C form file: cp fddi sink tcp.pr.c */ 
/* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

*include "cp fddi sink tcp.pr.h" 
FSM EXT DECS 


/* Header block */ 

/* Globals */ 

/* array format installed 20JAN94; positions 0-7 represent the asynch priority levels, PRIORITIES 
+ 1 */ 

/* represents synch traffic, and grand totals are as given in the original. */ 


#define PRIORITIES 8 /* 20JAN94 */ 


#define XMITTER_ONE 0 /“10М.АҮ94%/ 

#define XMITTER_TWO 1 

#define XMITTER_THREE 2 

#define XMITTER_ FOUR 3 

#define IP_OUT_STRM 4/* 1I SEP94*/ 

static /* OSFEB94 */ 

double fddi_sink_accum_delay = 0.0; 

static /* OSFEB94 */ 

double fddi sink accum delay a[PRIORITIES 4 1] - {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0}; 

static /* OSFEB94 */ 

int fddi_sink_total_pkts = 0; 

static /* OSFEB94 */ 

int fddi sink total pkts a[PRIORITIES + 1] = {0, 0, 0, 0, 0, 0, 0, 0, 0}; 


static /* OSFEB94 */ 
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double fddi_sink_total_bits = 0.0; 


static /* OSFEB94 */ 

double fddi_sink_total_bits_af[PRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0}; 

static /* OSFEBO94 */ 

double fddi sink peak delay - O.0; 

static /* OSFEB94 */ 

double fddi sink peak delay a[PRIORITIES - 2] - (0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0); 

static /* OSFEB94 */ 

int fddi_sink_scalar_write = 0; 

static /* OSFEB94 */ 

int pri_set = 20; /* 20JAN94 */ 

Static 

int subq index z 0; /* 5APR94 */ 

static 

double buffer[4]2(0.0,0.0,0.0,0.0); /*10M AY 94 */ 


/* statistics used for CDL throughput */ 


static /* 20APR94 */ 

int fddilpl total pkts - 0; 

static 

int fddilpl total pkts a[PRIORITIES + 1] = {0, 0, 0, 0, 0, 0, 0, 0, 0}; 

Static 

double fddilp1_total_bits = 0.0; 

Static 

double fddilpi_total_bits_a[PRIORITIES + i] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 


/* Externally defined globals. */ 
extern double fddi t. opr []; 


/*12JANO4:attributes from the Environment file */ 
double Offered Load; /* 12JAN94 */ 
double Asynch Offered Load; /* 127AN94 */ 


/* transition expressions */ 
#define END_OF_SIM op_intpt_type() == OPC_INTRPT_ENDSIM 


/* get picture of jamming. this variable allows anyone who*/ 


/* is writing to the global statistic to ensure it has */ 
/* been initialized. 20AUG94*/ 
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int 
Gshandle link gshandle[4]; 


/* State variable definitions */ 
typedef struct 


| 
Е5М 5Ү5 5ТАТЕ 


jammer_stats_init=OPC_FALSE; 


Gshandle sv thru gshandle; 
Gshandle sv m delay gshandle; 
Gshandle 5у еге delay gshandle; 
Gshandle sv thru gshandle, a[10]; 
Gshandle sv m delay gshandle a[10]; 
Gshandle sv ete delay gshandle a[9]; 
Gshandle sv t gshandle; 

Gshandle 5у 1 gshandle a[10]. 

Objid sv my id; 

int sv PPP seq number; 
double sv time; 

Ici* sv from mac ici ptr; 


) cp. fddi sink tcp. state; 


#define pr state ptr 

#define thru. gshandle 
*tdefine m, delay gshandle 
*define ete delay gshandle 
*define thru gshandle a 
sdefine m delay gshandle a 
*define ete delay gshandle a 
#define t_gshandle 

#define t_gshandle_a 
*define my id 

*define PPP seq number 
#define time 

#define топ mac. ici ptr 


((cp. fddi sink tcp. state*) SimI Mod State Ptr) 
pr state ptr-^sv thru gshandle 

pr state ptr-^sv m delay gshandle 
pr state ptr-»sv ete delay gshandle 
pr state ptr-»sv thru gshandle a 

pr state ptr-»sv m delay gshandle a 
pr state ptr-^sv ete delay gshandle a 
pr state ptr-^sv t gshandle 

pr state ptr-»sv t gshandle a 

pr state ptr-»sv my. id 

pr state ptr-»sv PPP seq number 

pr. state ptr-^sv time 

pr state ptr-»sv from mac, ici ptr 


/* Process model interrupt handling procedure */ 
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void 


cp_fddi_sink_tcp () 


{ 
double 
Packet* 


delay, creat_time; 


pkptr; 


Packet* pkptr1 ; /*5APR94*/ 


Packet* 
int 

int 
double 
int 

int 

int 

int 
double 
char 

int 
double 
Packet* 


ppp. pkptr;/*15JUN94*/ 
src addr, my addr; 
dest. addr;/*14APR94*/ 
fddi sink ttrt; 
xmit subq index;/*5APR94*/ 
load balance code; /*6APR94*/ 
i,subq. no; /*25 APR94*/ 
index; /*10MAYO94 */ 
link mon trans rate; /*15JUN94*/ 
str0[512], str1 [512]; /* for diagnostics */ 
mon pkt size; /*26JUL */ 
sim duration; /*26JUL */ 
ip pkptr; /*11SEP*/ 


FSM ENTER (cp. fddi sink tcp) 


FSM BLOCK SWITCH 


/** state (DISCARD) enter executives **/ 
FSM_STATE: ENTER_UNFORCED (0, stateO_enter_exec, “DISCARD”’) 


/* determine type of interrupt: 10M AYO4 */ 
switch (op intrpt type() 


{ 


case OPC INTRPT STAT: 
/* the interrupt is caused by the transmitters' status */ 


{ 
index = op_intrpt_stat(); 
switch(index) 
{ 
case XMITTER_ONE: 
{ 
buffer[O] = op_stat_local_read(XMITTER_ONE); 
break; 
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interrupt 


22 99? aay 


> > 


} 
case XMITTER TWO: 


{ 
buffer[1) - op stat local read(XMITTER TWO); 
break; 
} 
case XMITTER_THREE: 
{ 
buffer[2] = op_stat_local_read(XMITTER_THREE); 
break; 
} 
case XMITTER_FOUR: 
{ 
buffer[3] = op_stat_local_read(XMITTER_FOUR); 
break; 
} 
default: 


{ 
op_sim_end(“*** FDDI-CDL : FATAL ERROR’”’,” Unexpected stat 


} 
} 

break; 

} 
case OPC_INTRPT_STRM: 
/* the interrupt is caused by the incoming packets */ 

{ 

/* get the packet and the interface control info */ 
pkptr = op_pk_get (op_intrpt_strm ()); 
from mac ici ptr — op intrpt ici (); 


/* 20JAN94: get the packet's priority level, which */ 
/* will be used to index arrays of thruput and delay */ 
/* computations. */ 


Op ici attr get (from mac ici ptr, "pri", &pri set); /* 11SEP94 */ 


/* determine the time of creation of the packet */ 
Op ici attr get (from mac, ici ptr, "Cr time", &creat time); 


/* 11SEP94:determine the destination address of the packet */ 
Op_ici_attr_get (from_mac_ici_ptr, “dest_addr’, &dest_addr); 


/* 11SEP94:determine the source address of the packet */ 
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20APR94 */ 


ор ici attr get (from, mac, ici ptr, "src addr", &src addr); 


/* 7 APR94: determine which load balancing algorithm is in use */ 
op ima, obj attr get ( my id, load balancing algorithm", &load balance, code ); 


/* 14APR94 : also get my own address */ 
op_ima_obj_attr_get ( my_id, “‘station_address”, &my_addr); 


/* destroy the packet */ 

/* op_pk_destroy (pkptr); */ 

/* 03FEB94: rather, enqueue the packet. This will be the */ 
/* first step toward developing a LAN bridging structure. */ 
/* -Nix */ 

/* op subq pk insert (pri set, pkptr, OPC QPOS TAIL); */ 


/* 14APR94: check the frame passed to "llc" is destined for */ 

/* this station. If it is update the local traffic */ 

/* statistics; if not, allocate the packets */ 

/* to the transmitters since they are destined for the remote lan */ 
/* update also incoming return link statistics for the frames */ 

/* which will be queued in llc, sink to be sent to remote lan.*/ 

/* -Karayakaylar */ 


if((dest addr 22 my, addr)&&(src addr « my. addr)) 
{ 
/* add in its size */ 
fddi_sink_total_bits += op_pk_total_size_get (pkptr); 
fddi_sink_total_bits_a[pri_set] += op_pk_total_size_get (pkptr); /* 20JAN- 


/* accumulate delays */ 

delay 2 op. sim time () - creat time; 

fddi sink accum, delay --- delay; 

fddi sink accum, delay. a[pri set] *- delay; /* 20JAN-20APR94 */ 


/* keep track of peak delay value */ 
if (delay » fddi sink peak delay) 
fddi sink peak delay - delay; 


/* 20JAN94: keep track by priority levels as well 23JAN-20APR94 */ 


if (delay > fddi_sink_peak_delay_a[pri_set]) 
fddi sink peak delay. a[pri set] = delay; 
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/* increment packet counter, 20JAN94 */ 
fddi_sink_total_pkts++; 
fddi_sink_total_pkts_a[pri_set]++; 


/* if a multiple of 25 packets is reached, update stats */ 
/* 03FEBO94: [0]-2[7] represent asynch priorities 1->8, */ 
/* respectively; [8] represents synchronous traffic, */ 
/* and [9] represents overall asynchronous traffic.-Nix */ 
/*if (fddi sink total pkts % 25 == 0) 

{ 

op_stat_global_write (thru_gshandle, 

fddi_sink_total_bits / op sim time ()); 


op. stat global write (thru, gshandle a[pri set], 
fddi sink total bits a[0] / op. sim йте()); 
op stat global write (thru gshandle, a[0], 
fddi sink total bits a[1] / op sim time()); 
op stat global write (thru gshandle a[1], 
fddi sink total bits a[pri set] / op sim пте()); 
op. stat global write (thru gshandle, a[2], 
fddi sink total bits a[2] / op sim time()); 
op. stat global write (thru gshandle a[3], 
fddi sink total bits a[3] / op. sim, timeQ); 
op. stat global write (thru gshandle a[4], 
fddi sink total bits a[4] / op. sim timeQ); 
op stat global write (thru gshandle a[5], 
fddi sink total bits a[5] / op. sim time(Q); 
op stat global write (thru gshandle a[6], 
fddi sink total bits a[6] / op sim time(Q); 
op stat global write (thru gshandle a[7], 
fddi sink total bits a[7] / op sim time()); 
op stat global write (thru gshandle a[8], 
fddi sink total bits a[8] / op sim time()); 
*/ 

/* 30JAN94: gather all asynch stats into one overall figure */ 
/*op_stat_global_wnite (thru_gshandle_a[9], 
(fddi sink total bits - fddi sink total bits a[8]) / 

op sim time()); 


vij 


/* (fddi sink total bits a[0] -- fddi sink total bits a[1] + */ 
/* fddi sink total bits a[2]  fddi sink total bits a[3] 4 */ 
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/* fddi_sink_total_bits_a[4] + fddi sink total bits a[5] 4 */ 
/* fddi sink total bits a[6] 4 fddi sink total bits a[7]) / */ 
/* op sim time()); */ 


7 ж 
op_stat_global_write (m_delay_gshandle, 
fddi_sink_accum_delay / fddi_sink_total_pkts); 


op_stat_global_write (m_delay_gshandle_a[0], 

fddi_sink_accum_delay_a[O] / fddi_sink_total_pkts_a[0]); 
op stat global write (m delay gshandle a[l], 

fddi sink accum delay a[1]/fddi sink total pkts a[1]); 
op stat global write (m delay gshandle a[2], 

fddi sink accum delay. a[2] / fddi sink total pkts a[2]); 
op stat global write (m delay. gshandle a[3], 

fddi sink accum delay a[3]/fddi sink total pkts a[3]); 
op stat global write (m delay gshandle a[4], 

fddi sink accum delay a[4]/fddi sink total pkts a[4]); 
ор stat global write (m delay gshandle a[5], 

fddi sink accum delay a[5] /fddi sink total pkts a[5]); 
op stat global write (m delay gshandle a[6], 

fddi sink accum, delay a[6] /fddi sink total pkts a[6]); 
op. stat. global write (m delay. gshandle a[7], 

fddi sink accum delay. a[7] / fddi sink total pkts a[7]); 
op stat global write (m delay gshandle a[8], 

fddi sink accum delay. a[8] / fddi sink total pkts a[8]); 

>! 

/* 30JAN94: gather all asynch stats into one figure */ 

/*op_stat_global_write (m_delay_gshandle_a[9], 

(fddi_sink_accum_delay - fddi_sink_accum_delay_a[8]) / 

(fddi sink total pkts - fddi sink total pkts a[8])); 

a 


/* (fddi_sink_accum_delay_a[0] + fddi_sink_accum_delay_a[1] + */ 
/* fddi_sink_accum_delay_a[2] + fddi_sink_accum_delay_a[3] + */ 
/* fddi_sink_accum_delay_a[4] + fddi_sink_accum_delay_a[5] + */ 
/* fddi_sink_accum_delay_a[6) + fddi sink accum delay. a[7]) / */ 
/* (fddi sink total pkts a[0] * fddi sink total pkts a[1] 4 */ 
/* fddi sink total pkts a[2] * fddi sink total pkts а[3] + */ 
/* fddi sink total pkts a[4] 4 fddi sink total pkts a[5] * */ 
/* fddi sink total pkts a[6] - fddi sink total pkts a[7]); */ 
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/* also record actual delay values */ 
/*op stat global write (ete delay. gshandle, delay); 
op stat global write (ete delay gshandle a[pri set], delay); 
} 
/ 
) /* end of if(dest addr == my_addr)&&(src_addr < my_addr) statement */ 


/* 20APR94: check the frame passed to “‘lic” is destined for remote lan */ 
/* This will allow only the packets to be counted for CDL traffic.*/ 
/* -Karayakaylar */ 
else 
{ 
/* add in its size */ 
fddilp1_total_bits += op_pk_total_size_get (pkptr); 
fddilp1_total_bits_a[pri_set] += op_pk_total_size_get (pkptr); /* 20APR94 */ 


/* increment packet counter; 20APR94 */ 
fddilp1_total_pkts++; 
fddilp1]_total_pkts_a[pri_set]++; 


/* if a multiple of 25 packets is reached, update stats */ 
/* [0]->[7] represent asynch priorities 1->8, */ 
/* respectively; [8] represents synchronous traffic, */ 
/* and [9] represents overall asynchronous traffic.-Nix */ 
/*if (fddilpl total pkts 9o 25 == 0) 

{ 

op stat global write (t gshandle, 

fddilpl total bits / op sim time ()); 


op stat global write (t gshandle a[pri set], 
fddilpl total bits a[0] / op sim пте()); 

op stat global write (t gshandle. a[0], 
fddilpl total bits a[1] / op sim timeQ); 

op stat global write (t gshandle a[1], 
fddilpl total bits a[pri set] / op sim time()); 

op stat global write (t gshandle a[2], 
fddilpl total bits a[2] / op sim time()); 

op stat global write (t. gshandle, a[3], 
fddilpl total bits a[3] / op. sim time()); 

op stat global write (t gshandle a[4], 
fddilpl total bits a[4] / op sim time()y; 

op. stat global write (t gshandle a[5], 
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fddilpl total bits a[5] / op sim. time()); 

op stat global write (t gshandle, a[6], 
fddilpl total bits a[6] / op. sim time); 

op stat global write (t gshandle a[7], 
fddilpl total bits a[7] / op sim time()); 

op. stat global write (t gshandle, a[8], 
fddilpl total bits a[8] / op sim time(); 

К, 

/* gather all asynch stats into one overall figure */ 

/[*op stat global write (t gshandle, a[9], 
(fddilpl total bits - fddilpl total bits a[8]) / 
op. sim, time()); 


si 

/* (fddilp1_total_bits_a[0] + fddilp1_total_bits_a[1} + */ 
/* fddilp1_total_bits_a[2] + fddilp1_total_bits_a{3] + */ 

/* fddilp1_total_bits_a[4] + fddilp1_total_bits_a[5] + */ 

/* fddilpl total bits a[6] 4 fddilpl total bits a[7]) / */ 

/* op sim time(Q); */ 


/* if (fddilpl total pkts % 25 == 0) */ 
} /* end of else if(dest. addr — my addr)&&(src addr « my  addr) statement */ 


/* Frames coming to ср sink only go to this station or CDL 11SEP94*/ 
if (dest addr 22 my. addr) 
{ 
/* send packet to IP layer */ 
op pk níd get (pkptr, *datagram", &ip pkptr); 
op pk destroy (pkptr); 
op pk send (ip. pkptr, IP OUT STRM); 
j 
else /* send to the CDL*/ 
{ 
/* 11SEP94: first step is to take LLC ICI that was sent with*/ 
/* frame and attach directly to LLC frame instead of event*/ 
/* This is necessary because LLC frame doesn't have all req'd info */ 
Op. pk ici set(pkptr, from mac. ici ptr); 


/*15JUN94 : before allocating, encapsulate the FDDI frame into a PPP packet */ 
ррр_ркри = op. pk create fmt ("ppp ml"); 

op. pk nfd set (ppp pkptr, seq number", PPP seq number); 

op. pk nfd set (ppp pkptr, "FDDI frame", pkptr); 
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/* 14APR94 :allocate the packets to lic sink subqueues */ 


/* 6APR94 -Karayakaylar*/ 

/* check if load balancing algorithm is circular */ 

/* zero(0) is the circular load balancing code */ 

if (load. balance code == 0) 
{ 

/* SAPR94 */ 
/* Apply load balancing to insert the packets in the */ 
/* subqueues, in a circular order */ 
subq_no = subq_index % 4; 
op subq pk insert(subq no, ppp. pkptr, OPC QPOS TAIL); /*15JUN 

altered to send ppp */ 
subq_index++; 


} 


/* 25АРКО4 */ 

/* check if load balancing algorithm is empty allocation */ 

/* one(1) is the empty allocation load balancing code */ 

if (load_balance_code == 1) 
{ 
/* Apply load balancing to insert the packets in the */ 
/* subqueues by choosing the subqueue which has the maximum current */ 
/* number of free packet slots */ 
subq no- op subq index map(OPC QSEL MAX FREE PKSIZE); 
ор subq pk insert(subq no, ppp pkptr, OPC QPOS TAIL); /*15JUN 

altered to send ppp*/ 
) 


)/*else if(dest addr - my, addr) statement */ 


break; 
)/* end of case OPC. INTRPT. STRM statement */ 


case OPC INTRPT. SELF: /*27JUL94*/ 

/* if it 1s a self-interrupt, it is ume to send a monitoring packet. Send one. */ 
{ 
ppp. pkptr - op pk create fmt("ppp"); 
Op. pk nfd set (ppp pkptr,"pid h",0xc0); 
op. pk nfd set (ppp. pkptr,"pid 1",0x21); 
op. ima obj attr get (my. id,"monitoring pkt size", &mon pkt size); 
Op pk bulk size set (ppp pkptr, mon pkt size); 
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if (load_balance_code == 1) 

{ 
subq no- op subq index map(OPC QSEL MAX FREE PKSIZE); 
op subq pk insert (subq no,ppp pkpt, OPC QPOS TAIL); 
) 

else if (load balance code == 0) 
{ 
subq_no = subq_index % 4; 
op. subq pk insert (subq no,ppp pkptr,OPC QPOS TAIL); 
subq_index-++; 
} 

break; 


} 


}/* end of switch */ 


/* check if each subqueue is not empty and transmitter is not busy */ 
/* irregardless if an interrupt is received or not 1AUG94*/ 
for (xmit_subq_index = 0;xmit_subq_index <=3; ++xmit_subq_index) 
{ 
if ((!op_subq_empty(xmit_subq_index))&&(buffer[xmit_subq_index] == 
0.0)) 
{ 
/*access the first packet in the subqueue */ 
pkptr]l - op subq pk remove (xmit subq index, OPC QPOS HEAD); 
/* forward it to the destination xmitter */ 
/* associated with the subqueue index */ 
Op pk send (pkptrl, xmit subq index ); 
/*if (op sim debug(2zOPC TRUE) 
printf (“packet sent to cp xmt from subqueue %d\n’’ ,xmit_subq_index);*/ 


} 


/** blocking after enter executives of unforced state. **/ 


FSM_EXIT (1,cp_fddi_sink_tcp) 


/** state (DISCARD) exit executives **/ 
FSM STATE EXIT UNFORCED (0, state0 exit exec, "DISCARD") 


{ 
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/** state (DISCARD) transition processing **/ 
FSM_INIT_COND (END_OF_SIM) 
FSM_DFLT_COND 

FSM_TEST_LOGIC (“DISCARD”) 


FSM_TRANSIT_SWITCH 
{ 
FSM CASE TRANSIT (0, 1, statel enter exec, ;) 
FSM CASE TRANSIT (1, O, stateO enter exec, ;) 


/** state (STATS) enter executives **/ 
FSM. STATE ENTER UNFORCED (1, statel. enter. exec, "STATS") 
{ 


/* At end of simulation, scalar performance statistics */ 
/* and input parameters are written out. */ 


op_Stat_scalar_write (“RL Throughput (bps), Priority 1”, 
fddilpl total bits a[0] / op sim time ()); /*20APR94*/ 


op_stat_scalar_write (“RL Throughput (bps), Priority 2”, 
fddilp1_total_bits_a[{1] / op_sim_time ()); 


op_Stat_scalar_write (“RL Throughput (bps), Priority 3”’, 
fddilpl total bits a[2] / op sim ume ()); 


op. stat scalar write ("RL Throughput (bps), Priority 4", 
fddilpl total bits a[3] / op. sim time ()); 


op stat scalar write ("RL Throughput (bps), Priority 5", 
fddilpl total bits a[4] / op. sim time ()); 


op stat scalar write (^RL Throughput (bps), Priority 6", 
fddilpl total bits a[5] / op sim time ()); 


op. stat scalar write ("RL Throughput (bps), Priority 7", 
fddilpl total bits a[6] / op sim time ()); 
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op_stat_scalar_write (“RL Throughput (bps), Priority 8”, 
fddilp1_total_bits_a[7] / op_sim_time ()); 


op stat scalar write (“RL Throughput (bps), Asynchronous”, 
(fddilpl total bits - fddilpl total bits a[8]) / op sim time ()); 


/* (fddilpl total bits a[0] 4 fddilpl total bits a[1] + */ 
/* fddilpl total bits a[2] -- fddilpl total bits a[3]  */ 

/* fddilpl total bits a[4] + {аир total bits a[5] + */ 

/* fddilpl total bits a[6] -- fddilpl total bits a[7]) / */ 

/* op sim time ()); */ 


op stat scalar write (^RL Throughput (bps), Synchronous", 
fddilpl total bits a[8] / op sim time (Qj); 


op stat scalar write ("RL Throughput (bps), Total", 
fddilpl total bits / op sim time ()); /*20APR94*/ 


/* Only one station needs to do this */ 
if (!fddi sink scalar write) 
{ 
/* set the scalar write flag */ 
fddi_sink_scalar_write = 1; 


op. stat scalar write ("Mean End-to-End Delay-0 (sec.), Priority 1", 
fddi sink accum, delay a[0] / fddi sink total pkts a[0]); 


op. stat scalar write ("Mean End-to-End Delay-0 (sec.), Priority 2", 
fddi sink accum delay a[1]/fddi sink total pkts a[1]); 


op stat scalar write (“Mean End-to-End Delay-0 (sec.), Priority 3", 
fddi sink accum delay. a[2] / fddi sink total pkts a[2]); 


op stat scalar write ("Mean End-to-End Delay-0 (sec.), Priority 4", 
fddi sink accum delay a[3]/fddi sink total pkts a[3]); 


op stat scalar write ("Mean End-to-End Delay-O0 (sec.), Priority 5”, 
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fddi_sink_accum_delay_a[4] / fddi_sink_total_pkts_a[4]); 


op_Stat_scalar_write (“Mean End-to-End Delay-0 (sec.), Priority 6", 
fddi_sink_accum_delay_a[5] / fddi_sink_total_pkts_a[5]); 


op stat scalar write (“Mean End-to-End Delay-0 (sec.), Priority 7”, 
fddi sink accum delay a[6]/fddi sink total pkts a[6]); 


op stat scalar write (“Mean End-to-End Delay-0 (sec.), Priority 8", 
fddi sink accum, delay a[7]/fddi sink total pkts a[7]); 


op stat scalar write ("Mean End-to-End Delay-0 (sec.), Asynchronous", 
(fddi sink accum delay - fddi sink accum delay a[8])/ 
(fddi sink total pkts - fddi sink total pkts a[8])); 


/* (fddi sink accum delay a[0]- fddi sink accum delay. a[1] 4 */ 
/* fddi sink accum, delay. a[2] 4 fddi sink accum, delay. a[3] + */ 

/* fddi sink accum delay a[4] 4 fddi sink accum delay. a[5] 4- */ 

/* fddi sink accum delay a[6] 4 fddi sink accum delay. a[7]) / */ 

/* (fddi sink total pkts a[0] 4 fddi sink total pkts _а[1] + */ 

/* fddi sink total pkts a[2] 4 fddi sink total pkts a[3] -- */ 

/* fddi sink total pkts a[4] 4 fddi sink total pkts a[5] - */ 

/* fddi sink total pkts a[6] 4 fddi sink total pkts a[7])); */ 


op. stat scalar write (“Mean End-to-End Delay-0 (sec.), Synchronous", 
fddi sink accum, delay a[8] / fddi sink total pkts a[8]); 


op stat scalar write ("Mean End-to-End Delay-O (sec.), Total", 
fddi sink accum delay / fddi sink total pkts); 


op. stat scalar write ("Throughput-0 (bps), Priority 1”, 
fddi sink total bits a[0] / op sim time ()); 


op stat scalar write ("Throughput-O (bps), Priority 2”, 
fddi sink total bits a[1] /op sim time ()); 


op stat scalar write (“Throughput-0 (bps), Priority 3”, 
fddi sink total bits a[2] / op sim time ()); 


op stat scalar write ("Throughput-O (bps), Priority 4", 
fddi sink total bits a[3] / op sim time ()); 
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op_stat_scalar_write (‘“Throughput-0 (bps), Priority 5", 
fddi_sink_total_bits_a[4] / op_sim_time ()); 


op. stat scalar write (““Throughput-0 (bps), Priority 6”, 
fddi sink total bits a[5] / op sim time ()); 


op stat scalar write ("Throughput-O (bps), Priority 7", 
fddi sink total bits a[6] / op. sim time ()); 


op stat scalar write ("Throughput-O (bps), Priority 8”, 
fddi sink total bits a[7] / op. sim time ()); 


op. stat scalar write (“Throughput-0 (bps), Asynchronous”, 
(fddi sink total bits - fddi sink total bits a[8]) / op sim time ()); 


/* (fddi sink гога! 6115 а[0] + fddi sink total bits a[1] 4 */ 
/* fddi sink total bits a[2] 4 fddi sink total bits a[3] + */ 

/* fddi sink total bits a[4] 4 fddi sink total bits a[5] - */ 

/* fddi sink total bits a[6] -- fddi sink total bits a[7]) / */ 

/* op sim time ()); */ 


op stat scalar write (^Throughput-0 (bps), Synchronous", 
fddi sink total bits a[8] / op. sim time ()); 


op stat scalar write ("Throughput-O (bps), Total", 
fddi sink total bits / op. sim. time ()); 
op stat scalar write ("Peak End-to-End Delay-0 (sec.), Priority 1", 


fddi sink peak delay. a[0]); 


op stat scalar write ("Peak End-to-End Delay-0 (sec.), Priority 2", 
fddi sink, peak, delay. a[1]); 


op. stat, scalar write ("Peak End-to-End Delay-0 (sec.), Priority 3”, 
fddi sink peak delay. a[2]); 


op stat scalar write ("Peak End-to-End Delay-0 (sec.), Priority 4", 
fddi sink peak delay a[3]) 
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op stat scalar write ("Peak End-to-End Delay-0 (sec.), Priority 5", 
fddi sink peak delay a[4]); 


op stat scalar write ("Peak End-to-End Delay-0 (sec.), Priority 6”, 
fddi sink peak delay a[5]); 


op stat scalar write (Peak End-to-End Delay-0 (sec.), Priority 7", 
fddi sink peak delay. a[6]); 


op stat scalar write (“Peak End-to-End Delay-0 (sec.), Priority 8”, 
fddi sink peak delay. a[7]); 


op stat scalar write ("Peak End-to-End Delay-0 (sec.), Synchronous", 
fddi sink peak delay a[8]); 


op. stat, scalar write ("Peak End-to-End Delay-0 (sec.), Overall", 
fddi sink peak, delay); 


/* Write the TTRT value for ring 0. This preserves*/ 

/* the old behavior for single-ring simulations.*/ 

op_stat_scalar_write (“TTRT (sec.) - Ring 0”, 
fddi t opr [0]); 


/* 12JAN94: obtain offered load information from the Environment */ 

/* file; this will be used to provide abscissa information that */ 

/* can be plotted in the Analysis Editor (see ““fddi_sink” STATS */ 

/* state. To the user: it’s your job to keep these current in */ 

/* the Environment File. -Nix */ 

op ima sim, attr get (OPC IMA DOUBLE, "total offered load 0”, 
&Otffered Load); 

op ima sim attr get (OPC IMA DOUBLE, "asynch offered load 0”, 
&Asynch Offered, Load); 


/* 12JAN94: write the total offered load for this run */ 
op stat scalar write ("Total Offered Load-0 (Mbps)", 
Offered. Load); 


op. stat scalar write ("^ Asynchronous Offered Load-0 (Mbps)", 
Asynch Offered Load); 

) 
) 
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/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (3,cp_fddi_sink_tcp) 


/** state (STATS) exit executives **/ 

FSM STATE EXIT UNFORCED (1, statel exit exec, "STATS") 
{ 
} 


/** state (STATS) transition processing **/ 
FSM_TRANSIT_MISSING (“5ТАТ5”) 


/** state (INIT) enter executives **/ 

FSM STATE ENTER FORCED (2, state2 enter exec, "INIT") 
{ 
/* get the gshandles of the global statistic to be obtained */ 
/* 20JAN94: set array format */ 
jhe 
thru gshandle a[0] 2 op. stat global reg ("pri 1 throughput-0 (bps)"); 
thru gshandle a[1]- op stat global reg ("pri 2 throughput-0 (bps)"); 
thru gshandle a[2] 2 op stat global reg ("pri 3 throughput-0 (bps)’’); 
thru gshandle a[3] - op. stat global reg ("pri 4 throughput-0 (bps)"); 
thru _gshandle_a[4] = op stat global reg ("pri 5 throughput-0 (bps)'; 
thru gshandle a[5] —- op stat global reg ("pri 6 throughput-O0 (bps)'); 
thru gshandle a[6] — op. stat global reg (pri 7 throughput-0 (bps)”’); 
thru gshandle a[7] » op. stat global reg ("pri 8 throughput-0 (bps)”’); 
thru gshandle a[8] 2 op stat global reg ("synch throughput-0 (bps)'"); 
thru gshandle a[9] 2 op. stat global reg ('async throughput-0 (bps)'); 
thru gshandle - op stat global reg ("total throughput-0 (bps)'); 


m. delay. gshandle , a[0] 2 op. stat global reg ("pri 1 mean delay-0 (5ес.)”?); 
m delay gshandle a[1] - op. stat global reg ("pri 2 mean delay-0 (sec.)"); 
m delay gshandle a[2] - op. stat global reg ("pri 3 mean delay-0 (sec.)"); 
m delay gshandle a[3] 2 op. stat global reg ("pri 4 mean delay-0 (sec.)"); 
m delay. gshandle a[4] 2 op stat global reg (“pri 5 mean delay-0 (sec.)"); 
m delay gshandle a[5] 7 op. stat global reg ("pri 6 mean delay-0 (ѕес.)”); 
m delay gshandle a[6] - op stat global reg ("pri 7 mean delay-0 (sec.)”); 
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m_delay_gshandle_a[7] = op_stat_global_reg (“‘pri 8 mean delay-0 (sec.)"); 
m, delay gshandle a[8] = op. stat. global reg ("synch mean delay-O0 (sec.)"); 
m delay gshandle a[9] 2 op. stat. global reg ("async mean delay-0 (sec.)’”); 
m delay gshandle — op stat global reg ("total mean delay-0 (sec.)'; 


ete delay gshandle a[0] — op. stat global reg (pri 1 end-to-end delay-0 (sec.)’’); 
ete delay gshandle a[1] — op stat global reg ("pri 2 end-to-end delay-O (sec.)’’); 
ete delay gshandle a[2] 7 op. stat global reg ("pri 3 end-to-end delay-0 (sec.)"); 
ete delay gshandle a[3] - op stat global reg (pri 4 end-to-end delay-0 (sec.)’’); 
ete delay gshandle a[4] — op. stat. global reg ("pri 5 end-to-end delay-0 (sec.)"); 
ete delay gshandle a[5] 7 op. stat. global reg ("pri 6 end-to-end іејау-0 (ѕес.)””); 
ete delay gshandle a[6] - op stat global reg (pri 7 end-to-end delay-O0 (sec.)”’); 
ete delay gshandle a[7] — op stat global reg (“pri 8 end-to-end delay-0 (sec.)’’); 
ete delay gshandle a[8] — op stat global reg ("synch end-to-end delay-O (sec.)'); 
ete delay gshandle — op. stat. global reg ("total end-to-end delay-O (sec.)”’); 


t gshandle a[0] — op. stat. global reg (pri 1 RL throughput (bps)"); 
t gshandle a[1] 2 op stat global reg (pri 2 RL throughput (bps)'); 
t gshandle a[2] 7 op stat global reg ("pri 3 RL throughput (bps)'); 
t gshandle a[3] 2 op stat global reg ("pri 4 RL throughput (bps)); . 
t gshandle a[4] 7 op stat global reg (“pri 5 RL throughput (bps)"); 
t gshandle a[5] = op. stat. global reg ("pri 6 RL throughput (bps)"); 
t gshandle a[6] — op stat global reg ("pri 7 RL throughput (bps)"); 
t gshandle a[7] - op. stat global reg ("pri 8 RL throughput (bps)””); 
t gshandle a[8] = op. stat. global reg ("synch RL throughput (bps)'; 
t gshandle a[9] — op. stat global reg ("async RL throughput (bps)"); 
t gshandle = op stat global reg (total RL throughput (bps)'); 

zi 

link gshandle[0] — op. stat. global reg ("Link 0 jamming"); 

link gshandle[1] 2 op. stat. global reg (Link 1 jamming”); 

link gshandle[2] 7 op. stat global reg (“Link 2 jamming”); 

link gshandle[3] 7 op. stat. global reg ("Link 3 jamming"); 

jammer stats init 2 OPC TRUE; 


subq no - 0; 
/* 7APR94:determine id of own processor to use in finding */ 
/* load balancing attribute and station address of the bridge node */ 


my_id = op_id_self(); 


/* 1SJUN94: get rate for link monitoring packet transmission */ 
Op_ima_obj_attr_get (my_id,”link_monitor_trans_rate’’, &link_mon_trans_rate ); 
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/* 26JUL94: get duration of the simulation */ 
op ima, sim, attr get (OPC IMA DOUBLE, "duration", &sim, duration); 


/* 26JUL94:generate a self interrupt at each time that a monitoring packet*/ 
/* 1s to be sent. Since these packets are to be sent at a fixed terate (per */ 

/* second), the only way to guarantee packet generation in this event */ 

/* driven simulation is to create an interrupt at the appropriate sim */ 

/* times. These interrupts will cause a monitoring packet to be sent */ 

/* through the discard state.*/ 


for (time- op. sim, time(); time«-sim duration; time--link mon trans rate) 
{ 
op. intrpt. schedule, self (time, 0хс021); 
} 


/*11SEP94: create an ICI to attach to all LLC frames transiting */ 
/*the CDL. Though the LLC frames will be encapsulated in PPP, */ 
/*the ICI will be associated with the LLC frame and will remain */ 
/*intact until gotten before the LLC frame is sent to the MAC */ 
бот тас Ісі рӯ = op_ici_create (“‘fddi_mac_ind_tcp’’); 


} 


/** state (INIT) exit executives **/ 
FSM_STATE_EXIT_FORCED (72, state2_exit_exec, “INIT’’) 
{ 
} 


/** state (INIT) transition processing **/ 
FSM_INIT_COND (END_OF_SIM) 
FSM_DFLT_COND 
FSM_TEST_LOGIC (“INIT”) 


FSM_TRANSIT_SWITCH 


{ 
FSM CASE TRANSIT (0, 1l. state] enter exec, ;) 
FSM, CASE TRANSIT (1, O, stateO. enter. exec, :) 
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FSM_EXIT (2,cp_fddi_sink_tcp) 
} 


cp_fddi_sink_tcp_svar (prs_ptr,var_name,var_p_ ptr) 


cp_fddi_sink_tcp_state*prs_ptr; 
char *var name, **var p ptr; 


{ 
FIN (cp_fddi_sink_tcp_svar (prs_ptr)) 


*var p ptr z VOS NIL; 
if (Vos String Equal ("thru gshandle", var name)) 
*var p ptr — (char *) (&prs ptr-»sv thru gshandle); 
if (Vos String Equal (*m delay. gshandle" , var name)) 
*var p ptr — (char *) (&prs ptr-»sv m delay. gshandle); 
if (Vos String Equal ("ete delay gshandle", var name)) 
*var p. ptr 2 (char *) (&prs ptr-5sv ete delay gshandle); 
if (Vos String Equal ("thru gshandle a", var name)) 
*var p ptr — (char *) (prs ptr-»sv thru gshandle a); 
if (Vos String Equal (*m delay gshandle a", var name)) 
*var p ptr - (char *) (prs ptr-^sv m delay gshandle a); 
if (Vos String Equal ("ete delay gshandle 2a", var name)) 
*var p ptr - (char *) (prs ptr-»sv ete delay gshandle а); 
if (Vos String Equal ("t gshandle", var name)) 
*var p ptr 2 (char *) (&prs ptr-»sv t gshandle); 
if (Vos String Equal (t gshandle a", var name)) 
*var p. ptr — (char *) (prs ptr-»sv t gshandle a); 
if (Vos String Equal ("my id", var name)) 
*var p ptr 2 (char *) (&prs ptr-»sv my. id); 
if (Vos String Equal (PPP seq number", var name)) 
*var p ptr 2 (char *) (&prs ptr-^sv. PPP. seq number); 
if (Vos String Equal ("*time" , var name)) 
*var p ptr — (char *) (&prs pt-»sv time); 
if (Vos String Equal ("from mac ici ptr", var name)) 
*var p ptr - (char *) (&prs ptr-^sv from mac ici ptr); 
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FOUT, 


void 

cp. fddi sink tcp diag () 
{ 
double delay, creat_time; 
Packet* pkptr; 
Packet* pkptr1 ; /*5APR94*/ 
Packet* ppp. pkptr;/*15JUN94*/ 


int src addr, my. addr; 

int dest addr;/* 14A PR94*/ 

double fddi sink ttrt; 

int xmit subq index;/*5APR94*/ 

int load balance code; /*6APR94*/ 

int i,subq no; /*25APR94*/ 

int index; /* 1OMAY94 */ 

double link_mon_trans_rate; /*15JUN94*/ 

char str0[512], str1 [512]; /* for diagnostics*/ 
int mon_pkt_size; /*26JUL*/ 


double sim_duration; /*26JUL*/ 
Packet* ip_pkptr; /* 11SEP*/ 


FIN (cp_fddi_sink_tcp_diag ()) 


/* find out why straight line syndrome */ 


op_prg_odb_print_major (“'----------- DEBUGGING for straight line--------- 
"ОРС МІ); 
sprintf (str0,” count of packets : (od) ,subq index); 
sprintf (str1,"subqueue no : (ged)".subq no); 
op. prg odb print minor (strO.str1. OPC_NIL): 


FOUT, 
} 
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void 


cp_fddi_sink_tcp_terminate () 


{ 

double delay, creat_time; 
Packet* pkptr; 

Packet* pkptr1 ; /*5APR94*/ 
Packet* ppp. pkptr;/*15JUN94*/ 


int src addr, my. addr; 

int dest addr;/*14APR94*/ 

double fddi sink ttrt; 

int xmit_subq_index;/*5APR94*/ 

int load_balance_code; /*6APR94*/ 

int i,subq_no; /*25APR94*/ 

int index; /*lLOMAY94 */ 

double link_mon_trans_rate; /*15JUN94*/ 

char str0[512], str1 [512]; /* for diagnostics*/ 
int mon pkt size; /*26JUL */ 


double sim duration; /*26JUL*/ 
Packet* ip. pkptr; /*11SEP*/ 


FIN (cp. fddi sink tcp. terminate ()) 


FOUT, 


Compcode 
cp_fddi_sink_tcp_init (pr_state_pptr) 


cp fddi sink tcp state**pr state pptr; 


{ 
Static VosT_Cm_Obtypeobtype = OPC_NIL; 


FIN (cp_fddi_sink_tcp_init (pr_state_pptr)) 


if (obtype == OPC_NIL) 
{ 
if (Vos Catmem Register ("proc state vars (cp fddi sink tcp)', 
sizeof (ср. Га” sink, tcp. state), Vos Nop, &obtype) 2 VOSC FAILURE) 
FRET (OPC. COMPCODE FAILURE) 
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if ((*pr_state_pptr = (cp_fddi_sink_tcp_state*) Vos Catmem Alloc (obtype, 1)) 27 


OPC NIL) 
FRET (OPC COMPCODE FAILURE) 


else 


{ 
(*pr_state_pptr)->current_block = 4; 


FRET (OPC_COMPCODE_SUCCESS) 
) 
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APPENDIX J 


TCP RING 0 MAC MODULE CODE 
*cp fddi mac, tcp.pr.c" 


Unchanged portions of this file have been deleted for brevity. 


/* Process model C form file: cp. fddi mac tcp.pr.c */ 
/* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

finclude "cp fddi mac tcp.pr.h" 
FSM, EXT DECS 


/* Header block */ 

/* Define a timer structure used to implement */ 

/* the TRT and THT timers. The primitives defined to */ 
/* operate on these timers can be found in the */ 

/* function block of this process model. */ 


typedef struct 
{ 
int enabled; 
double start time; 
double accum; 
double target accum; 


) FddiT. Timer; 


/* Declare certain primitives dealing with timer.s */ 


double fddi timer. remaining (): 
FddiT. Timer* fddi timer. create (); 
double fddi timer. value (); 


/* Scratch strings for trace statements */ 
char strO [512], str1 [512]; 
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/* define constants particular to this implementation */ 
#define FODDI_LMAX_STATIONS 512 


/* define possible values for the frame control field */ 
define FDDI FC FRAME 0 
#define FDDI FC TOKEN 1 


/* define possible service classes for frames */ 
#define FDDI_SVC_ASYNC 0 
#define FDDI_SVC_SYNC 1 


/* define input stream indices */ 
#define FDDI_LLC_STRM_IN 1 
#define FDDI_LPHY_STRM_IN 


/* define output stream indices */ 
#define FDDI_LLC_STRM_OUT 1 
#define FDDI_LPHY_STRM_OUT 0 


/* define token classes */ 


#define FDDI_TK_NONRESTRICTED 0 
#define FDDI_TK_RESTRICTED 1 

/* Ring Constants */ 

#define FDDI_TX_RATE 1.0e+08 
#define FDDI_SA_SCAN_TIME 28.0е-08 


/* Token transmission time: based on 6 symbols plus 16 symbols of preamble */ 
#define FDDIC_TOKEN_TX_TIME 88.0e-08 


/* Codes used to differentiate remote interrupts */ 
*define FDDIC TRT EXPIRE 0 
define FDDIC TK INJECT ] 


/* Define symbolic expressions used on transition */ 
/* conditions and in executive statements. */ 
#define TRT_EXPIRE \ 
(op. intrpt type () == OPC_INTRPT_REMOTE && op_intrpt_code () == 
FDDIC_TRT_EXPIRE) 
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#define TK_RECEIVED\ 
phy_arrival && \ 
frame control 22 FDDI FC TOKEN 


#define RC_ FRAME \ 
phy_arrival && \ 
frame_control == FDDI FC FRAME 


*define FRAME ARRIVAIA 
op intrpt type () 22 OPC INTRPT STRM &é&^ 
op intrpt strm () zz FDDI LLC STRM IN 


&define STRIPmy. address —- src. addr 


/* Define the maximum value for ring. id. This is the*/ 
/* maximum number of FDDI rings that can exist in a*/ 
/* simulation. Note that if this number is changed,*/ 

/* the initialization for fddi claim, start below must*/ 
/* also be modified accordingly. */ 

#define FDDI MAX RING ID 8 


/* Declare the operative TTRT value *'T. Opr' which is the final*/ 
/* negotiated value of TTRT. This value is shared by all stations*/ 
/* on aring so that all agree on its value.*/ 

double  fddi t opr [FDDI MAX RING ID]; 

#define Fddi T Opr (fddi t opr [ring id]) 


/* This flag indicates that the negotiation for the final TTRT*/ 

/* has not yet begun. It is statically initialized here, and*/ 

/* is reset by the first station which modifies T_Opr.*/ 

/* Initialize to 1 for all rings.*/ 

Static 

int fddi_claim_start [FDDI_LMAX_RING_ID] = {1,1,1,1,1,1,1,1}; 
#define Fddi Claim Start(fddi claim, start [ring, id]) 


/* Declare station latency parameters. */ 

/* These are true globals, so they do not need to be arrays. */ 
double  Fddi St Latency; 

double  Fddi Prop Delay; 


/* Declare globals for Token Acceleration Mechanism. */ 
/* Hop delay and token acceleration are true globals.*/ 
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double  Fddi Tk Hop Delay; 
static 
int Fddi Tk Accelerate - 1; 


/* These are actually values shared by all nodes on a ring, */ 

/* so they must be defined as arrays.*/ 

double  fddi tk block base time [FDDI MAX RING. ID]; 

#define Fddi Tk Block Base Time(fddi tk block base time [ring id]) 


int fddi tk block base station [FDDI MAX RING ID]; 
#define Fddi Tk Block Base Station(fddi tk block base station [ring id]) 


int fddi tk blocked [FDDI MAX RING ID]; 
*define Fddi Tk Blocked(fddi tk blocked [ring id]) 


int fddi num stations [FDDI MAX RING. ID]; 
#define Fddi Num Stations(fddi num, stations [ring id]) 


int {даі num registered [FDDI MAX RING IDJ; 
#define Fddi Num Registered(fddi num registered [ring id]) 


Objid — fddi address table [FDDI MAX RING ID][FDDI MAX STATIONS]; 
#define Fddi Address Table(fddi address table [ring, id]) 


/* Below is part of the OPBUG 2081 patch; FB ended here, before. -Nix */ 


/* Event handles for the TRT are maintained at a global level to */ 

/* allow token acceleration mechanism to adjust these as necessary */ 

/* when blocking and reinjecting the token. TRT. handle simply */ 

/* represents the TRT for the local MAC*/ 

Evhandle fddi trt handle [FDDI MAX RING ID][FDDI MAX STATIONS]; 
#define Fddi Trt Handle(fddi trt handle [ring id]) 

#define TRT handle — Fddi Trt Handle [my address] 


/* Similarly, the TRT data structure is maintained on a global level. */ 
FddiT Timer*fddi trt [FDDI MAX RING. ID] [FDDI MAX STATIONS]; 
define Fddi Tr —  (fddi trt [ring id]) 


#define TRT Fddi Trt [my. address] 
/* Registers to record the expiration time of each TRT when token is blocked. */ 


double  fddi trt exp time [FDDI MAX RING ID] [FDDI MAX STATIONS]; 
*tdefine Fddi Trt Exp Time(fddi trt exp. time [ring id]) 
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/* the 'Late Ct' flag is declared on a global level so that it can be */ 

/* set at the tim ewhere the token is injected back into the ring. */ 

int fddi late ct [FDDI MAX RING. ID] [FDDI MAX STATIONS]; 
#define Ғай Late Ct (fddi late ct [ring id]) 

sdefine Late Ct Fddi Late Ct [my. address] 


/* Convenient macro for setting TRT for a given station and absolute time. */ 

#define TRT_SET(station_id,abs_time)\ 

fddi_timer_set (Fddi_Trt [station_id], abs time - op sim time())^ 

Fddi Trt Handle [station id] 2 op. intrpt schedule remote (abs time^ 
FDDIC TRT EXPIRE, Fddi Address Table [station id]); 


/* State variable definitions */ 
typedef struct 


{ 
FSM_SYS_STATE 


int sv ring id; 
FddiT Timer* sv. THT, 
double sv T Req, 
double ѕу Т Рп [8]; 
Objid sv my objid; 

int sv Spawn token; 
int sv my address; 
int sv orig src addr; 
Packet* Sv tk pkptr; 
double sv sync bandwidth; 
double sv Sync pc; 

int sv restricted; 

int sv res peer; 

int sv tk registered; 
Ici* sv to llc ici ptr; 


int sv tk trace on; 
) cp fddi mac tcp. state; 


#define pr state ptr 
*define ring id 
#define THT 
#define T_Req 
#define T_Pri 
#define my_objid 


((cp_fddi_mac_tcp_state*) SimI_Mod_State_Ptr) 
pr_state_ptr->sv_ring_id 

pr state ptr-^sv THT 

pr state ptr-^sv T Req 

pr state ptr-^sv T Pri 

pr state ptr-^sv my. objid 
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#define spawn_token pr state ptr-^sv spawn token 


*tdefine my. address pr state ptr-^sv my address 
#аебпе огір src. addr pr state ptr-^»sv orig src addr 
*tdefine tk pkptr pr state ptr-^sv tk pkptr 
#аећпе ѕупс bandwidth pr_state_ptr->sv_sync_bandwidth 
#define sync_pc pr_State_ptr->sv_sync_pc 
#define restricted pr_state_ptr->sv_restricted 
#define res_peer pr_state_ptr->sv_res_peer 
#define tk_registered pr_state_ptr->sv_tk_registered 
#аебпе їо Пс ісі рт pr state ри->5у іо llc ici ptr 
*define tk trace on pr state ptr-^sv tk trace on 


/* Process model interrupt handling procedure */ 


void 

cp fddi mac tcp O 
{ 
/* Packets and ICI’s */ 
Packet* mac_frame_ptr; 
Packet* pdu_ptr; 
Packet* pkptr; 
Packet* data pkptr; 
Ici* ici ptr; 


/* Packet Fields and Attributes */ 


int req pri, svc, class, req tk class; 
int frame control, src addr, dest addr; 
int pk len, pri level; 


/* Token - Related */ 


int tk usable, res station, tk class; 
int current tk class; 
double accum sync; 


/* Timer - Related */ 
double tx time, timer remaining, accum bandwidth; 
double tht value; 
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/* Miscellaneous */ 


int 1; 

int spawn station, phy arrival; 

char error string [512]; 

int num frames sent, num bits sent; 


/* 26DEC93: loop management variables, used in RCV TK */ 
/* and ENCAP states. -Nix */ 

int NUM_PRIOS; 

int punt, 

int q check; 


Ша aoe ЖЕ ЕН ЯК ae ee i he oes f 


/* 11SEP94: added creation time */ 
double creation, time; 


FSM ENTER (cp. fddi mac tcp) 


FSM BLOCK SWITCH 


/** state (INIT) enter executives **/ 
FSM STATE ENTER FORCED (0, state0 enter exec, "INIT ) 
{ 
/* Obtain the station’s address . This is an attribute */ 
/* of this process. Addressing is simplified by */ 
/* simply using integers, and only one mode. */ 
/* This mode is 16 bit addressing unless the */ 
/* packet format *fddi mac fr' is modified. */ 
my. objid — op id self(); /* 29DEC93 */ 
op. ima, obj attr. get (my objid, "station address", &my. address); 


/* Register the station's object id in a global table. */ 

/* This table is used by the mechanism which improves */ 
/* simulation efficiency by ‘jumping over’ idle periods */ 
/* rather than circulating an unusable token. */ 
fddi_station_register (my_address, my_objid); 


/* Obtain the station latency for tokens and frames. */ 
/* Default value is set at 100 nanoseconds. */ 
Fddi_St_Latency = 100.0e-09; 


181 


op_ima_sim_attr_get (OPC_IMA_DOUBLE, “‘station_latency”’, 
&Fddi St Latency); 


/* Obtain the propagation delay separating stations. */ 

/* This value is given in seconds with default value 3.3 microseconds. */ 

Fddi Prop Delay - 3.3e-06; 

op ima sim attr get (OPC IMA DOUBLE, "prop delay", &Fddi Prop Delay); 


/* Derive the Delay for a ‘hop’ of a freely circulating packet. */ 
Fddi_Tk_Hop_Delay = Fddi_Prop_Delay + Fddi_St_Latency; 


/* The T. Pri [] state variable array supports priority */ 

/* assignments on a station by station basis by */ 

/* establishing a correspondence between integer priority */ 

/* levels assigned to frames and the maximum values of the */ 

/* token holding timer (THT) which would allow packets to be */ 
/* sent. Eight levels are supported here, but this can easily */ 

/* be changed by redimensioning the priority array. */ 

/* By default all levels are identical here, allowing */ 

/* any frame to make use of the token, so that in fact */ 

/* priority levels are not used in the default case. */ 


/* 01JANO94: (8-1) is a quick attempt to impart different weighting */ 
/* scales on each priority level, and is not necessarily realistic.-Nix */ 
/* Be aware of integer-double arithmetic conflicts ie, 1/8 = 0. -Nix */ 


op ima obj attr get(my objid, "T Req', &T Reg) 
for (i = 0; 1 < 8; i++) 
{ 
T Pri[i] 2 ((double)(i * 1.0)/8.0) * Fddi T. Opr; 
/* printf "MAC INIT: T Pri[92od] is 9olf; */ 
/* Fddi T Opr is ?o1fvn", i, T. Pri[1], Fddi T. Opr); */ 
} 


/* Create the token holding timer (THT) used to restrict the */ 
/* asynchronous bandwidth consumption of the station */ 
THT = fddi_timer_create (); 


/* Create the token rotation timer (TRT) used to measure the */ 


/* rotations of the token, detect late tokens and initialize */ 
/* the THT timer before asynchronous tranmsmissions. */ 
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TRT = fddi_timer_create (); 


/* Set the TRT timer to expire in one TTRT */ 
TRT. SET (my. address, op sim time () + Fddi_T_Opr); 


/* Initialize the Late Ct variable which keeps track. */ 
/* of the number of TRT expirations. */ 
Late Ct = 0; 


/* initially the ring operates in nonrestricted mode */ 
restricted = 0; 


/* Create an Interface Control Information structure */ 
/* to use when delivering received frames to the LLC. */ 
РОИ жн ка О E sls ok AE A A co ОККО Se e a E E ККК КККК КККК У 


/*11SEP94: changed to new format, adding pri and cr_time**/ 
E о ОЕ К ЕКОО Е ОНОО ОКК ЕЕЕ le oe ole oe ake ak de oj ke ok oj Жә С 


to llc ici ри = op ici create ("fddi mac ind tcp"); 


/* The 'tk registered" variable indicates if the station */ 
/* has registered its intent to use the token. */ 
tk registered - 0; 


/* Determine if the model is to make use of the token */ 

/* ‘acceleration’ mechanism. If not, every passing of the */ 

/* token will be explicityly modeled, leading to large */ 

/* number of events being scheduled when the ring 1s idle */ 

/* (i.e, no stations have data to send). */ 

op_ima_sim_attr_get (OPC_IMA_INTEGER, “‘accelerate_token’”’, 
&Fddi_Tk_Accelerate); 


/* Obtain the synchronous bandwidth assigned */ 

/* to this station. It is expressed as a */ 

/* percentage of TTRT, and then converted to seconds */ 

op ima obj attr get (my objid, "sync bandwidth", &sync pc); 
sync bandwidth 2 sync pc * Fddi T Opr; 


/* Only one station in the ring is selected to */ 
/* introduce the first token. Test if this station is it. */ 
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/* If so, set the ‘spawn_token’ flag. */ 
/* op ima sim attr get (OPC IMA INTEGER, "spawn station", 
&spawn, station); */ 
/* spawn token - (spawn station —- my address); */ 
/* If the station is to spawn the token, create */ 
/* the packet which represents the token. */ 
/* 14APR94 :the bridges will spawn token in both rings */ 
/* -Karayakaylar */ 
spawn_token =1; 
if (spawn token) 
{ 
tk_pkptr = op_pk_create_fmt (“аі тас (К°); 


/* assign its frame control field */ 
op pk nfd set (tk pkpt, "fc", FDDI FC TOKEN); 


/* the first token issued is non-restricted */ 
op. pk nfd set (tk pkptr, "class", FDDI TK NONRESTRICTED); 


/* The transition will be made into the ISSU TK */ 
/* state where the tk usable variable is used. */ 

/* In case any data has been generated, prset */ 

/* this variable to one. */ 

tk usable = 1; 

} 


/* When sending packets the variable accum_bandwidth is */ 
/* used as a scheduling base. Init this value to zero. */ 

/* This statement is required in case this is the spawning */ 
/* station, and the next state entered is ISSUE_TK */ 

accum, bandwidth z 0.0; 
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/** state (INIT) exit executives **/ 

FSM STATE EXIT FORCED (0, stateO exit exec, "INIT") 
{ 
} 


/** state (INIT) transition processing **/ 
FSM_INIT_COND (spawn_token) 
FSM_DFLT_COND 
FSM_TEST_LOGIC (‘INIT’) 


FSM_TRANSIT_SWITCH 
{ 
FSM_CASE_TRANSIT (0, 2, state2_enter_exec, ;) 
FSM CASE TRANSIT (1, l, statel enter exec, ;) 


/** state (FR. REPEAT) enter executives **/ 

FSM STATE ENTER FORCED (6, state6 enter exec, "FR. REPEAT") 
{ 
/* Extract the destination address of the frame. */ 
op. pk nífd get (pkptr, "dest addr", &dest addr); 


/* If the frame is for this station, make a copy */ 
/* of the frame's data field and forward it to */ 
/* the higher layer. */ 
/* 14APR94 : In order to send the frames which are */ 
/* addressed to the remote lan, check the address database */ 
/* of remote lan. Frames addressed to the remote lan shouldn't */ 
/* be repeated in the local ring -- This is a simple forwarding */ 
/* decision algorithm, one of the bridge's function */ 
/* - Karayakaylar */ 
ifí(dest addr 2 my. address)ll(dest addr » my. address)) 
{ 
/* record total size of the frame (including data) */ 
pk_len = op_pk_total_size_get (pkptr); 


/* decapsulate the data contents of the frame */ 
/* 29JAN94: a new field, "pri", has been added to */ 
/* the fddi llc. fr packet format in the Parameters */ 
/* Editor, so that output statistics can be */ 
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/* generated by class and priority. -Nix */ 
op pk nfd get (pkptr, "info", &data pkptr); 
op. pk nfd get (pkptr, "pri", &pri level); 


/* The source and destination address are placed in the */ 
/* LLC’s ICI before delivering the frame's contents. */ 
Op ici attr set (to llc ici ptr, "src addr", src addr); 
Op ici attr set (to llc ici ptr, "dest addr", dest addr); 
pfalsok ok ok ok checa hok ЖАККА ЕК ЖЕ ЖАО ОГ 
/*11 SEP94: added pri and cr time to fddi mac ind ici***/ 
/* both are needed for data collection***/ 
ЕЕЕ ЕЕЕ ke oe eoe she oe ke oie He A IC a ea NC es Ace аа ааа 
Op ici attr set (to Jlc ici ptr, "pri", pri level); 
op pk nfd get (pkptr, "cr time", &creation time); 
op ici attr set (to llc ici ptr, "cr time", creation time); 


op ici install (to llc ici ptr); 


/* Because, as noted in the FR. RCV state, only the */ 

/* frame's leading edge has arrived at this time, the */ 

/* complete frame can only be delivered to the higher */ 

/* layer after the frame's transmission delay has elapsed. */ 

/* (since decapsulation of the frame data contents has occured, */ 

/* the original MAC frame length is used to calculate delay) */ 
tx_time = (double) pk_len / FDDI_TX_RATE; 

op pk send delayed (data pkptr, FDDI LLC STRM OUT, tx time); 


/* Note that the standard specifies that the original */ 
/* frame should be passed along until the originating station */ 
/* receives it, at which point it is stripped from the ring. */ 
/* However, in the simulauon model, there is no interest */ 
/* in letting the frame continue past its destination unless */ 
/* group addresses are used, so that the same frame could be */ 
/* destined for several stations. Here the frame is stripped */ 
/* for efficiency as it reaches the destination; if the model */ 
/* is modified to include group addresses, this should be changed */ 
/* so that the frame is copied and the original repeated. */ 
/* Logic is already present for stripping the frame at the origin. */ 
Op. pk destroy (pkptr); 
} 
/* 14APR94 : the frames belong to this ring should be repeated. */ 
/* Thus, local traffic is constrained.-- This is filtering decision */ 
/* One of the bridge's function - Karayakaylar */ 
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else{ 
/* Repeat the original frame on the ring and account for */ 
/* the latency through the station and the propagation delay */ 
/* for a single hop. */ 
/* (Only the originating station can strip the frame). */ 
op pk send delayed (pkptr, FDDI PHY STRM OUT, 
Fddi St Latency * Fddi Prop Delay); 
} 


/** state (FR. REPEAT) exit executives **/ 

FSM. STATE EXIT FORCED (6, state6 exit exec, "FR. REPEAT") 
{ 
} 


/** state (FR. REPEAT) transition processing **/ 
FSM TRANSIT FORCE (1, statel enter exec, ;) 


/** state (ENCAP) enter executives **/ 

FSM STATE ENTER FORCED (8, state8 enter. exec, ^ENCAP") 
{ 
/* A frame has arrived from a higher layer; place it in ‘pdu_ptr’. */ 
pdu_ptr = op_pk_ get (op_intrpt_strm ()); 


/* Also get the interface control information */ 
/* associated with the new frame. */ 
ici_pt = op_intrpt_ici (); 
if (ici_ptr == OPC_NIL) 
{ 
sprintf (error_string, “Simulation aborted; error in object (%d)”, 
op_id_self ()); 
op_sim_end (error_sting, “fddi_mac: required ICI not received”, “ ‘‘, ‘‘ ‘‘); 


} 


/* Extract the requested service class */ 

/* (e.g, synchronous or asynchronous). */ 

if (op_ici_attr_exists (ici_ptr, “svc_class”)) 
Op_ici_attr_get (ici_ptr, “svc_class”, &svc_class); 

else svc_class = FDDI_SVC_ASYNC; 
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/* Extract the destination address. */ 
Op ici attr get (ici ptr, "dest addr", &dest addr); 


/* Extract the original source address from ICI :16APR94 */ 
Op ici attr get (ici ptr, "src addr", &orig src addr); 


/* If the frame is asynchronous, the priority and */ 
/* requested token class parameter may be specified. */ 
if (svc_class == FDDI SVC ASYNC) 

{ 

/* Extract the requested priority level. */ 

if (op ici attr exists (ici ptr, "pri")) 

op ici attr get (ici ptr, "pri", &req pri); 
else req_pri = 0; 


/* Extract the token class (restrictred or non-restricted). */ 
if (op ici attr exists (ici, ptr, "tk class")) 

Op ici attr get (ici ptr, "tk class", &req tk class); 
else req tk class Z FDDI TK NONRESTRICTED,; 
} 


/* Check for the default ICI values;if they are not present */ 
/* compose the frame:21 APR94 */ 
if( dest_addr != orig_src_addr){ 


/* Compose a mac frame from all these elements. */ 
ЕРЕК ЖКЖ ЖКЖ Ж ЖКЖ ҚАН Жа А а ee ee a 


/Ж 115 ЕР94: mac frame format is changed to fddi_mac_fr_tcp***/ 

[EEEE k H kakak ak k skk ak kak akak ЖЗ ЭК ӘКК ЫҚ ЕҚ Ко ЭБДЕН КК ЖЖЖ ЖЗ 
mac_frame_ptr = op_pk_create_fmt (“1441 mac fr tcp"); 

op_pk_nfd_set (mac_frame_ptr, “svc_class’’, svc_class); 

op pk nfd set (mac frame, ptr, "dest addr", dest addr); 

/*op pk nfd set (mac, frame, ptr, "src, addr", my address); */ 

/* here original source address should be kept in mac frame :16APR94*/ 

Op pk níd set (mac frame, ptr, "src, addr'", orig src, addr); 

op pk nfíd set (mac frame, ptr, "info", pdu, ptr); 


[PE Ж ЕЖ Ж Ж ЕЖ ЖКЖ ЖЕЗ ас к ақан жак а кек ктк жжж Ж I 


/* 11SEP94: cr_time is added to the MAC frame (Obits) because it*/ 
/* is needed for calculations, but taken out of the LLC frame */ 


[FF EEE k k k ak ak k k k k kak kk ak k k A aa tt sk oko ok дик ек аны ЕЖ ЖКЖ“ / 


Op ici attr get (ici ptr, "cr time", &creation time); 
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op_pk_nfd_set (mac_frame_pt, “cr_time’’, creation_time); 


printf(‘\ndest_addr = %5d\n’’,dest_addr); 
printf(^orig src addr- 9o65dWn",orig src addr); 


if(svc class Za FDDI SVC ASYNC) 
{ 
op_pk_nfd_set (mac_frame_pt, “tk_class’’, req_tk_class); 
op_pk_nfd_set (mac_frame_ptr, “pri’, req_pri); 
} 


/* 04JANO94: if the frame is synchronous, assign it a separate */ 
/* priority so that it may be assigned its own subqueue, and */ 
/* thereby be assigned its own probe for monitoring. -Nix */ 
if (svc class Zz FDDI SVC. SYNC) 

{ 

op_pk_nfd_set (mac_frame_pt, “‘pri’, 8); 

} 


/* Assign the frame control field, which in the model */ 

/* is used to distinguish between tokens and ordinary */ 

/* frames on the ring. */ 

op_pk_nfd_set (mac_frame_ptr, “fc”, FDDI FC FRAME); 


/* Enqueue the frame at the tail of the queue. */ 
/* 27DEC93: at the tail of the prioritized queue. */ 
/* 04JAN94: must distinguish between synch & asynch. */ 
if (svc_class == FDDI_SVC_ASYNC) 
{ 
op subq pk insert (req pri, mac, frame ptr, OPC QPOS. TAIL); 
) 
if (svc class 2 FDDI SVC SYNC) 
{ 
op subq pk insert (8, mac frame, ptr, OPC_QPOS_TAIL); 
} 


[* if this station has not yet registered its intent to */ 
/* use the token, it may do so now since it has data to send */ 
if (!tk registered) 

{ 

fddi tk register (); 
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tk_registered = 1; 
} 


} /* end of if(dest_addr != orig_src_addr) statement */ 


/** state (ENCAP) exit executives **/ 
FSM_STATE_EXIT_FORCED (8, state8_exit_exec, “ENCAP’’) 
{ 
) 


/** state (ENCAP) transition processing **/ 
FSM TRANSIT FORCE (1, statel enter exec, ;) 
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APPENDIX K 


TCP RING 1 LLC_SRC MODULE CODE 
"sp  fddi gen, tcp.pr.c" 


/* Process model C form file: sp fddi gen tcp.pr.c */ 
/* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

#include “‘sp_fddi_gen_tcp.pr.h” 
FSM_EXT_DECS 


/* Header block */ 

#define MAC_LAYER OUT_STREAM 0 

#define LLC_SINK_OUT_STREAM ] /*18APR94*/ 
4defineIP IN STRM 4 /* 11 SEP94*/ 


/* define possible service classes for frames */ 
#define FDDI SVC. ASYNC 0 
define FDDI SVC SYNC ] 


/* define token classes */ 
48define FDDI TK NONRESTRICTED 0 
4define FDDI TK RESTRICTED 1 


/* define output statistics */ 

#define RATIO_OUTSTAT 0 
#define LINK_STATUS_OUTSTAT 1 

/* link status constants 30 JUL94*/ 

#define GOOD 0 

#define BAD 2 


/* history trend constants 30JUL94*/ 
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#define DOWN 0 
#define UP 1 


/* redefine absolute value function for floating pt values 283JUL94*/ 
#define abs(i) (1)«0 ? -(1) : (1) 


struct history element 
/* format for linked list of history values 26JUL94*/ 
{ 
int num_errs; 
struct history_element *next; 
} *history; 


/* function declaration 28JUL94*/ 
struct history element *create history(); 


/* State variable definitions */ 
typedef struct 


{ 
FSM_SYS_STATE 


Objid sv_mac_objid; 
Objid sv_my_id; 

int sv station addr; 
int sv Src addr; 

int Sv ppp. pid h; 
int Sv ppp pid 1; 
Ici* sv mac iciptr; 
Ici* sv llc iciptr; 


Packet * sv pkptrl; 
Packet* Sv ppp pkptrl; 
Packet* Sv ppp pkpt2; 


int sv hist len; 

int sv link status; 
int SV pkts in error; 
double sv Old ratio; 


) sp fddi gen tcp. state; 


ftdefine pr state ptr ((sp fddi gen tcp state*) Siml Mod State Pu) 
*tdefine mac, objid pr state ptr-^sv mac, objid 

#аебпе ту 1а pr_state_ptr->sv_my_id 

#define station _addr pr_State_ptr->sv_station_addr 
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#define src_addr 
#define ppp_pid_h 
#define ppp_pid_l 
#define mac_iciptr 
#аебпе llc iciptr 
#define pkptrl 
#define ppp_pkptrl 
#define ppp_pkptr2 
#define hist_len 
#define link_status 
#define pkts_in_error 
#define old_ratio 


pr_state_ptr->sv_src_addr 
pr_state_ptr->sv_ppp_pid_h 
pr_state_ptr->sv_ppp_pid_l 
pr_state_ptr->sv_mac_iciptr 
pr state ptr-»sv llc iciptr 
pr state ptr-^»sv pkptrl 

pr state ptr-»sv ppp. pkptrl 
pr state ptr-^sv ppp. pkptr2 
pr state ptr-»sv hist len 

pr state ptr-»sv link status 
pr state ptr-^sv pkts in error 
pr state ptr-»sv old ratio 


/* Process model interrupt handling procedure */ 


void 
sp fddi gen tcp O 
{ 


Packet — *pkptr, *ip pkptr; 


int pklen; 

int dest addr; 
int 1,j, restricted; 
int pkt_prio; 

int num_errors; 


double new_ratio, upper_thresh, lower_thresh; 


double LQR_trans delta; 
double creation time; 
Ici *ip_iciptr; 


FSM_ENTER (sp_fddi_gen_tcp) 


FSM_BLOCK_SWITCH 


/** state (INIT) enter executives **/ 
FSM STATE ENTER, UNFORCED (0, stateO_enter_exec, “INIT’’) 


{ 
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/* determine id of own processor to use in finding attrs */ 
my_id = op_id_self (); 


/* determine object id of connected ‘mac’ layer process */ 
mac_objid = op_topo_assoc (my_id, OPC_TOPO_ASSOC_OUT, 
OPC_OBJMTYPE_MODULE, MAC_LAYER_OUT_STREAM); 


/* determine the address assigned to it */ 
/* which is also the address of this station */ 
op ima obj attr get (mac, objid, "station address", &station, addr); 


/* set up history array (dynamically allocated) which will maintain */ 
/* number of errors in each monitoring packet rcvd. The number of */ 
/* values (length of the array) saved will be determined by an */ 
/* environment attribute. 21JUL94 */ 
op. ima obj attr get (my. id, "history length", &hist len); 
history - create, history(hist, len); 
printf (CHISTORYW Y); 
if (op sim, debug() 2— OPC, TRUE) 
{ 
for G=1;1<=hist_len;++1) 
{ 
printf (“%d “,history->num_errs); 
history = history->next; 
} 
printf (^n^); 
) 


/*11SEP94 set up ICI structure */ 
mac, iciptr — op. ici create ("fddi mac req tcp"); 
llc iciptr 2 op ici create ("fddi mac ind tcp"); 


) 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (1,sp_fddi_gen_tcp) 


/** state (INIT) exit executives **/ 
FSM STATE EXIT UNFORCED (0, state0 exit exec, МТ”) 


{ 
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/** state (INIT) transition processing **/ 
FSM TRANSIT FORCE (1, statel enter exec, ;) 


/** state (ARRIVAL) enter executives **/ 
FSM_STATE_ENTER_UNFORCED (1, statel_enter_exec, “ARRIVAL’’) 
{ 
/* This station should receive frames from the other lan as long as */ 
/* there are frames in the input streams addressed to this lan */ 
/*check if the interrupt type is stream interrupt and from the CDL*//* 12APR94*/ 
if((op_intrpt_type() == OPC_INTRPT_STRM)&& (op_intrpt_strm()!= 


IP IN STRM)) 


{ 
/* if it is, get the packet in the input stream causing interrupt */ 
/* modified for PPP 12JUL94 */ 
ppp_pkptr! = op_pk_get(op_intrpt_strm()); 
/* determine type of PPP packet 12JUL94 */ 
op. pk nfd get(ppp pkptrl,"pid h", &ppp. pid h); 
/* case on pid. h: 00 - data, OxcO - control 13JUL*/ 
switch (ppp. pid h) 
{ 
case 0x00: /* if data, stip header and send as FDDI frame */ 
/* strip off PPP header 12JUL94*/ 
if (op_sim_debug()==OPC_TRUE) 
{ 
printf (“‘pkt rcvd at sp: data\n’’); 
num_errors 


—op td get int(ppp pkptr1, OPC TDA PT NUM ERRORS); 


lan) */ 


printf (“number of errors in data - ZodN",num errors); 

} 

op pk níd  get(ppp. pkprr]1,"FDDI frame" ,&pkptr1); 

op pk destroy(ppp pkptr1); 

/* get ICI associated with FDDI LLC frame 11SEP94*/ 

llc iciptr z op pk ici. get (pkptr1); 

/* get the destination address of the frame: 11SEP94 */ 

ор ісі айг get(llc iciptr, "dest addr", &dest addr); 

/* check if this frame is for the remote bridge station(bridge in surface 
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accumulate */ 


destinations */ 


if(dest_addr == station_addr) 

{ 

/* if it is, send the packet to llc sink directly */ 

/* in order to prevent overhead of mac access */ 

Op ici install (llc, iciptr); 

ор рК send(pkptrl, LLC SINK OUT STREAM);/* 19APR94*/ 
} 

else 

/* this packet is to send to mac */ 

{ 

/* determine the source address of the frame */ 

Op ici attr get(llc iciptr, "src addr", &src addr); 

/* set up an ICI structure to communicate parameters to */ 

/* MAC layer process (initialized in INIT state)*/ 

/* place the original source address into the ICI *//* 16APR94 */ 
/* “fddi_mac_req”’ is modified so that it contains the original */ 
/* source address from the local lan(collection platform) */ 

Op ici attr set(mac iciptr, "src addr',src addr); 

/* place the destination address into the ICI */ /*12APR94*/ 

ор ісі айт set(mac, iciptr, "dest addr', dest addr); 

/* assign the service class and requested token class */ 

/* At this moment the frames coming from the remote lan are assumed */ 
/* to have the same priority as synchronous frames in order not to 


/* packets on the bridge station mac and instead to deliver their 


/* as soon as possible */ 

/* JOSEP94: I don't know why Selcuk did this, so I'll leave the values*/ 
/* but change to conform with the new packet/ICI formats */ 

Op ici attr set(mac iciptr, "svc class", FDDI SVC. SYNC); 

Op. ici attr set(mac, iciptr, "pri", 8); 

Op ici attr set(mac iciptr, "tk class", FDDI ТК NONRESTRICTED); 


Op ici attr get(llc iciptr, "cr time", &creation time); 

ор. ісі айт set(mac  iciptr, "cr time", creation time); 

/* send the packet coupled with the ICI */ 

Op ici install(mac iciptr); 

op pk send(pkptrl, MAC LAYER OUT. STREAM); 
} 

break; 


case OxcO: /* either monitoring packet or LOR */ 


op pk nfd get (ppp. pkptrl,"pid l",&ppp рій 1); 
switch (ppp. pid 1) 
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{ 

case 0x21: /*monitoring packet*/ 

printf (“MONITORING PACKET RECEIVED\n”); 
пит егтогѕ 


=op_td_get_int(ppp_pkptr1,OPC_TDA_PT_NUM_ERRORS); 


>%d\n”’ ,pkts_in_ error); 


&LQR trans delta); 


printf (^ NUMBER OF ERRORS --»57,dN1",num errors); 
if ((num errors !2 0) && (history-»num errs--0)) 
pkts_in_error++; 

else if ((num errors 22 0) && (history-»num, errs !z 0)) 
pkts in error--; 

printf (^ TOTAL NUMBER OF PACKETS IN ERROR -- 


history-»num, errs - num, eiTOrs; 
history = history->next, 


if (op_sim_debugQ==OPC_TRUE) 
/* print out history values 30JUL94 */ 
{ 

for (i=1;i<=hist_len;++i) 

{ 

printf (“%d “‘,history->num_errs); 
history = history->next; 

} 

printf (^n^); 


op. pk destroy (ppp. pkpul1); 


new ratio — (double)pkts in error/(double)hist len; 

/* outstat(O) will be a record of the ratio 8AUG94*/ 

op stat local write (RATIO OUTSTAT, new ratio); 
op. ima obj attr get (my id, "LOR transmission delta", 


if (op sim debug0--OPC TRUE) 
printf (CLOR delta - Zof new ratio - ?of old ratio - 


gZofNY ,LOR trans. delta,new ratio,old. ratio); 


calculation(division) */ 


/* SAUGO94 This condition allows for tolerance in the ratio 


if (abs(new ratio - old ratio) »2 LQR trans delta) 
{ 

ppp_pkptr2 = op. pk create fmt (“ppp”); 

op. pk nfd set (ppp. pkptr2, "pid h", OxcO); 


197 


&upper_thresh); 


&lower_thresh); 


op pk nfd set (ppp. pkpu2, "pid I", 0x25); 
op ima obj attr get (my id, "upper hysteresis threshold", 


op ima obj attr get (my. id, "lower hysteresis threshold", 


/* status = GOOD 0 or BAD 2 trend = UP 1 or DOWN 0 2AUG94*/ 


if (new_ratio >= upper_thresh) 


2)); 


link status - BAD; 

else if (new ratio «- lower. thresh) 

link status Z GOOD; 

else link status — link status - (link. status 9o 2);/* remove trend value*/ 


/* outstat(1) will monitor link status à- GOOD 1-BAD 8AUG94*/ 
op. stat local write (LINK STATUS OUTSTAT, (double) (link status/ 


/* trend will change each time */ 

if (new ratio » old ratio) /*up-trend */ 
link status += UP; 

else link status *- DOWN; 


op pk nfd set (ppp pkptr2, "LOR info", link status); 
if(op sim debug0-zOPC TRUE) 

| 

printf ("resulüng LOR pktn"); 

op. pk print(ppp pkptr2); 

) 

old ratio - new. ratio; 

op. pk send (ppp pkpt2, LLC SINK OUT STREAM); 
) 

if (op sim debug0O--ZOPC TRUE) 

printf (“ Latest ratio: gZofvn",new ratio); 

break; 


case 0x25:/*LOR from cp - not implemented yet*/ 
break; 

default: 

printf (CERROR: UNKNOWN PPP PACKET - 


pid_l=O0x%x\n’’ ppp_pid_l); 
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op_pk_destroy (ppp_pkptr!); 
break; 
} 
break; 

default: 

printf (““ERROR: UNKNOWN PPP PACKET - 
pid_h=0x%x\n’’,ppp_pid_h); 

op. pk destroy (ppp. pkptr); 

break; 

} 


) 
else /* it should be an IP dgram */ 
if((op_intrpt_type() == OPC_INTRPT_STRM)&& (op_intrpt_sum(== 
ІР ІМ 5ТЕМ)) 

{ 

/* get IP dgram and associated ICI */ 
ip pkptr 2 op pk get (IP IN STRM); 
ip iciptr — op_intrpt_iciQ; 


/* create an LLC frame to send to MAC */ 

/* ICI initialized in INIT state */ 

pkptr — op pk create fmt ("fddi llc fr tcp"); 
Op. pk nfd set (pkptr, *datagram", ip pkptr); 


op ici attr get (ip. iciptr," dest addr", &dest addr); 

if (dest addr «- 9) /* destined for other LAN */ 
{ 
op ici attr set (llc, iciptr,"dest addr", dest_addr); 
ор ісі айт set (llc, iciptr, src addr', station addr); 
op ici attr set (llc iciptr,"pri", 0); 
ор. ісі айт set (llc iciptr,"cr time", op sim time()); 


/*install LLC ICI and send frame to LLC sink */ 
op ici install (llc, iciptr); 
op pk send (pkptr(iiLLC SINK OUT STREAM); 
} 
else /* destined for this LAN, so send frame with MAC ICI*/ 
{ 
/* place the destination address into the ICI */ 
Op ici attr set (mac iciptr, "dest addr", dest addr); 
/* place the source address into the ICI *//* 17APR94*/ 
ор ісі айг set (mac  iciptr, "src addr", station addr); 
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/* assign svc_class, token class, and pri IAW RFC 1390 */ 
Op. ici айг set (mac iciptr, "svc class", FDDI SVC ASYNC); 
op ici attr set (mac, iciptr, "pri ,0); 
/* Request only nonrestricted tokens after transmission */ 
Op ici attr set (mac. iciptr, "tk class", FDDI TK NONRESTRICTED); 
Op ici attr set (mac  iciptr, "cr time", op sim time()); 


Op ici install (mac. iciptr); 
Op pk send (pkptr, MAC LAYER OUT STREAM); 
} 


) 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (3,sp_fddi_gen_tcp) 


/** state (ARRIVAL) exit executives **/ 
FSM_STATE_EXTT_UNFORCED (1, statel_exit_exec, “ARRIVAL’’) 
{ 
} 


/** state (ARRIVAL) transition processing **/ 
FSM_TRANSIT_FORCE (1, statel_enter_exec, ;) 


FSM_EXIT (0,sp_fddi_gen_tcp) 
} 


void 

sp_fddi_gen_tcp_svar (prs_ptr,var_name,var_p_ptr) 
sp_fddi_gen_tcp_state*prs_ptr; 
char *var name, **var p ptr; 
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{ 
FIN (sp_fddi_gen_tcp_svar (prs_ptr)) 


*var_p_ptr= VOS_NIL; 
if (Vos String Equal (*mac, objid" , var name)) 
*var p ptr = (char *) (&prs ptr-»sv. mac objid); 
if (Vos String Equal ("my id", var name)) 
*var p ptr 2 (char *) (&prs ptr-5sv. my. id); 
if (Vos String Equal ("station addr" , var name)) 
*var p ptr - (char *) (&prs ptr-»sv. station addr); 
if (Vos String Equal ("src addr" , var name)) 
*var p ptr - (char *) (&prs_ptr->sv_src_addr); 
if (Vos String Equal ("ppp pid h", var name)) 
*var p ptr — (char *) (&prs ptr-»sv ppp pid b); 
if (Vos String Equal ("ppp pid l", var name)) 
*var p ptr — (char *) (&prs ptr-»sv. ppp pid 1); 
if (Vos String Equal (*mac iciptr" , var name)) 
*var p ptr - (char *) (&prs ptr-5»sv mac. iciptr); 
if (Vos String Equal ("llc iciptr" , var name)) 
*var p ptr 2 (char *) (&prs ptr-»sv llc iciptr); 
if (Vos String Equal ("pkptr1" , var name)) 
*var p. ptr - (char *) (&prs ptr-5sv. pkptr1); 
if (Vos String Equal ("ppp pkptrl", var name)) 
*var p ptr 2 (char *) (&prs ptr-»sv ppp pkptr1); 
if (Vos String Equal ("ppp pkptr2" , var. name)) 
*var p ptr — (char *) (&prs ptr-5»sv ppp pkptr2); 
if (Vos String Equal ("hist len" , var name)) 
*var p ptr —- (char *) (&prs ptr-5»sv hist len); 
if (Vos String Equal ("link status" , var name)) 
*var p ptr — (char *) (&prs ptr-»sv link status); 
if (Vos String Equal ("pkts in error" , var name)) 
*var p ptr z (char *) (&prs ptr-»sv pkts in error); 
if (Vos String Equal ("old ratio" , var name)) 
*var p ptr — (char *) (&prs ptr-»sv. old ratio); 


FOUT, 
) 


void 
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sp_fddi_gen_tcp_diag () 
{ 
Packet — *pkptr, *ip pkptr; 


int pklen; 

int dest addr; 
int i,j, restricted; 
int pkt. prio; 

int num егтогѕ; 


double new ratio, upper. thresh, lower thresh; 
double LQR trans delta; 

double creation time; 

Ici *ip iciptr; 


FIN (sp. fddi gen tcp diag ()) 


FOUT, 


void 
sp_fddi_gen_tcp_terminate () 

{ 

Packet — *pkptr, *ip pkptr; 


int pklen; 

int dest addr; 
int 1,j, restricted; 
int pkt. prio; 

int num etTOIS; 


double new ratio, upper thresh, lower thresh; 
double LOR trans delta; 

double creation time; 

Ici *ip iciptr; 


FIN (sp. fddi gen tcp. terminate ()) 


FOUT, 
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Compcode 
sp_fddi_gen_tcp_init (pr_state_pptr) 
sp fddi gen tcp state**pr state pptr; 


{ 
static VosT_Cm_Obtypeobtype = OPC_NIL; 


FIN (sp_fddi_gen_tcp_init (pr_state_pptr)) 


if (obtype == OPC_NIL) 


{ 
if (Vos_Catmem_Register (“proc state vars (sp fddi gen tcp)", 


sizeof (sp fddi gen tcp state), Vos Nop, &obtype) 2- VOSC FAILURE) 
FRET (OPC COMPCODE FAILURE) 
) 


if ((*pr_state_pptr = (sp_fddi_gen_tcp_state*) Vos_Catmem_Alloc (obtype, 1)) == 
OPC_NIL) 
FRET (OPC_COMPCODE_FAILURE) 
else 


{ 
(*pr_state_pptr)->current_block = 0; 


FRET (OPC_COMPCODE_SUCCESS) 
) 


struct history_element *create_history(size) 
int size; 


/* returns a pointer to the first element in a circular linked list */ 
{ 
struct history_element *p, *new, *start; 
int 1; 


for (i=1;i<=size;++1) 
{ 
printf (“inside on iteration %d %d\n’’,i,size); 
new = (struct history_element*)malloc(sizeof(struct history_element)); 
if (!new) 


{ 
printf "ERROR: MEMORY ALLOCATION"); 
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exit(1); 
} 
if (i81) 
{ 
p = new; 
Start — new; 


) 


else p->next = new; /* stick new element on end of list*/ 
new->next = NULL; 
new->num_errs = 0; 
p = new; 


p->next = start; 


return (start); 
} 
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APPENDIX L 


TCP RING 1 LLC_SINK MODULE CODE 
“ер. Ғайі віпК (ср.рг.с” 


/* Process model C form file: sp_fddi_sink.pr.c */ 
/* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

#include “sp_fddi_sink.pr.h” 
FSM_EXT_DECS 


/* Header block */ 

/* Globals */ 

/* array format installed 20JANO94; positions 0-7 represent the asynch priority levels, PRIORITIES 
+ 1 */ 

/* represents synch traffic, and grand totals are as given in the original. */ 


#define PRIORITIES 8 /* 20JAN94 */ 


#define XMITTER_BUSY 0 /*10MAY 94 */ 

#define LLC_SOURCE_INPUT_STREAM 1 /*26JUL94*/ 

#define MAC_INPUT_STREAM 0 

Static /* OSFEB94 */ 

double fddi2_sink_accum_delay = 0.0; 

static /* OSFEBO94 */ 

double fddi2 sink accum, delay. a[IPRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0, 0.0); 


static /* OSFEB94 */ 

int fddi2_sink_total_pkts = 0; 

static /* 05FEBO4 */ 

int fddi2 sink total pkts a[PRIORITIES + 1] = {0, 0, 0, 0, 0, 0, 0, 0, 0}; 
Static /* OSFEB94 */ 

double fddi2_sink_total_bits = 0.0; 


205 


static /* OSFEB94 */ 

double fddi2_sink_total_bits_a[PRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0}; 

static /* OSFEB94 */ 

double fddi2_sink_peak_delay = 0.0; 

static /* OSFEB94 */ 

double fddi2_sink_peak_delay_a[PRIORITIES + 2] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 
0.0}; 

Static /* OSFEB94 */ 

int fddi2 sink scalar write = 0; 

static /* OSFEB94 */ 

int pri2_set = 20; /* 20JAN94 */ 

double busy = 0.0; /* 1OMAY94 */ 


/* Statistics used for command link:21 APR94 */ 


Static 

int fddilp2_total_pkts = 0; 

Static 

int fddilp2_total_pkts_a[PRIORITIES + 11 = {0, 0, 0, 0, 0, 0, 0, 0, 0}; 
static 


double fddilp2_total_bits = 0.0; 
static 
double fddilp2_total_bits_a[PRIORITIES + 1] = {0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}; 


/* Externally defined globals. */ 
extern doublefddi t opr []; 


/* 12JANO4:attributes from the Environment file */ 
double Offered Load; /* 127ANO94 */ 
double Asynch Offered Load; /* 127AN94 */ 


/* transition expressions */ 
*tdefine END OF. SIM op intrpt type() == OPC_INTRPT_ENDSIM 


/* State variable definitions */ 
typedef struct 
{ 
FSM_SYS_STATE 
Gshandle sv thru2 gshandle; 
Gshandle sv m2 delay. gshandle; 
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Gshandle sv ete2 delay gshandle; 
Gshandle — sv thru2 gshandle a[10]; 
Gshandle sv m2 delay gshandle a[10]; 
Gshandle — sv ete2 delay gshandle a[9]; 
Gshandle — sv 12 gshandle; 

Gshandle — sv t2 gshandle а[10]; 

Objid sv my id; 

) sp. fddi sink state; 


*define pr. state ptr ((sp fddi sink state*) SimlI Mod State, Ptr) 
#define thru2_gshandle pr_state_ptr->sv_thru2_gshandle 

#define m2_delay_gshandle pr_state_ptr->sv_m2_delay_gshandle 
#define ete2_delay_gshandle _ pr_state_ptr->sv_ete2_delay_gshandle 
#define thru2_gshandle_a pr_state_ptr->sv_thru2_gshandle_a 

*define m2 delay gshandle a pr_state_ptr->sv_m2_delay_gshandle_a 
#define ete2 delay gshandle a pr state ptr-^»sv ete2 delay gshandle a 


#define t2_gshandle pr_state_ptr->sv_t2_gshandle 
#define t2_gshandle_a pr_state_ptr->sv_t2_gshandle_a 
#define my_id pr_state_ptr->sv_my_id 


/* Process model interrupt handling procedure */ 


void 

sp fddi sink () 
{ 
double delay, creat_time; 
Packet* pkptr; 


Packet * ppp pkptr; 
Packet* pkptr1 ; /*5APR94*/ 


int src. addr, my. addr; 

int dest addr;/*14APR94*/ 

Ici* from, mac ici ptr; 

double fddi sink ttrt; 

char pk. format[10]; 

int input stream; 

int fd index, FDDI frame. size; 
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FSM ENTER (sp fddi sink) 


FSM BLOCK SWITCH 


/** state (DISCARD) enter executives **/ 
FSM STATE ENTER UNFORCED (0, state0 enter exec, "DISCARD") 


{ 


/* determine the type of interrupt */ 
switch(op_intrpt_type()) 


{ 


/* check if transmitter is busy */ 
case OPC_INTRPT_STAT: 


{ 


busy = op_stat_local_read (XMITTER_BUSY); 
break; 


} 


/* check if a packet has arrived */ 
case OPC INTRPT STRM: 


{ 


/* get the packet*/ 

input stream — op_intrpt_strm(); 
pkptr 2 op pk get (input stream); 
op pk format(pkptrppk format); 


/* if the packet is a ppp control packet from the Іс source */ 
if ((srcmp(pk  format,"ppp )220) &&(input stream 2- 
LLC SOURCE INPUT STREAM)) 


else 


{ 
/* bypass all this and send pkt out on the command link */ 


} 


{ 
/* assume this is a FDDI frame */ 


from_mac_ici_ptr = op_intrpt_ici (); 


/* 20JAN94: get the packet’s priority level, which */ 

/* will be used to index arrays of thruput and delay */ 

/* computations. */ 

/* pri2 set 2 op pk priority. get (pkptr); doesn't work here */ 
op pk nfd get (pkptr, "pri", &pri2 set); /* 29JANO94 */ 


/* determine the time of creation of the packet */ 
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lan */ 


20JAN-20APR94 */ 


op. pk nfd get (pkptr, "cr time", &creat time); 


/* determine the dest address of the packet */ /*18APR94*/ 
op. pk nfd get (pkptr, "dest addr'", &dest addr); 


/* 7APR94:determine id of own processor to use in finding */ 
/* station address of the bridge node */ 
my id = op id, self(); 


/* 14APR94 : also get my own address */ 
op ima obj attr. get ( my. id, "station address", &my. addr); 


/* destroy the packet */ 

/* op. pk destroy (pkptr); */ 

/* 03FEB94: rather, enqueue the packet. This will be the */ 
/* first step toward developing a LAN bridging structure. */ 
/* -Nix */ 

/* op_subq_pk_insert (pri_set, pkptr, OPC_QPOS_ TAIL); */ 


/* 14APR94: check the frame passed to "llc" is destined for */ 
/* this station. If it is destroy the packet, if not, allocate the packets */ 
/* to the command link transmitter since they are destined for the remote 


/* -Karayakaylar */ 

/* determine the packets coming from surface stations, this will */ 

/* be counted for local traffic */ 

/* 9(nine) is model specific, this is the "station number" of */ 

/* collection platform bridge station */ 

if((dest_addr == my_addr)&&(src_addr > 9)) 

{ 

/* add in its size */ 

fddi2_sink_total_bits += op_pk_total_size_get (pkptr); 
fddi2_sink_total_bits_a[pri2_set] += op_pk_total_size_get (pkptr); /* 


/* accumulate delays */ 

delay = op_sim_time () - creat_time; 

fddi2_sink_accum_delay += delay: 
fddi2_sink_accum_delay_a[pri2_set] += delay; /* 20JAN-20APR94 */ 


/* keep track of peak delay value */ 


if (delay > fddi2_sink_peak_delay) 
fddi2_sink_peak_delay = delay; 
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/* 20JAN94: keep track by priority levels as well 23JAN-20APR94 */ 
if (delay > fddi2_sink_peak_delay_al[pri2_set]) 
fddi2_sink_peak_delay_a[pri2_set] = delay; 


op_pk_destroy (pkptr); 


/* increment packet counter; 20JAN94 */ 
fddi2_sink_total_pkts++; 
fddi2 sink total pkts a[pri2 set]-—; 


/* if a multiple of 25 packets is reached, update stats */ 
/* 03FEBO94: [0]-2[7] represent asynch priorities 1-28, */ 
/* respectively; [8] represents synchronous traffic, */ 

/* and [9] represents overall asynchronous traffic.-Nix */ 
if (fddi2 sink total pkts % 25 == 0) 

{ 

op stat global write (thru2 gshandle, 
fddi2 sink total bits / op sim time ()); 


op stat global write (thru2 gshandle a[pri2 set], 
fddi2 sink total bits a[0] / op sim timeQ); 

op stat global write (thru2 gshandle  a[0], 
fddi2 sink total bits a[1]/ op. sim time(); 

ор. stat. global write (thru2 gshandle a[1], 
fddi2 sink total bits a[pri2 set] / op sim time(); 

op stat global write (thru2 gshandle a[2], 
fddi2 sink total bits a[2] / op. sim, time()); 

op stat global write (thru2 gshandle. a[3], 
fddi2 sink total bits a[3] / op sim time()); 

op stat global write (thru2 gshandle, a[4], 
fddi2 sink total bits a[4] / op sim пте()); 

op stat global write (thru2 gshandle a[5], 
fddi2 sink total bits a[5] / op. sim time(Q); 

op. stat global write (thru2 gshandle a[6], 
fddi2 sink total bits a[6] / op. sim timeQ); 

op. stat global write (thru2 gshandle, a[7], 
fddi2 sink total bits a[7] / op sim йте()); 

op stat global write (thru2 gshandle a[8], 
fddi2 sink total bits a[8] / op sim time()); 


/* 30JAN94: gather all asynch stats into one overall figure */ 
op stat global write (thru2 gshandle a[9], 
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(fddi2_sink_total_bits - fddi2_sink_total_bits_a[8]) / 
op sim time()); 


/* (fddi2 sink total bits a[0] 4 fddi2 sink total bits a[1] + */ 
/* fddi2 sink total bits a[2] 4 fddi2 sink total bits а[3] + */ 
/* fddi2. sink total bits a[4] - fddi2 sink total bits a[5] - */ 
/* fddi2 sink total bits a[6] ^ fddi2 sink total bits a[7]) / */ 
/* op sim time()); */ 


op stat global write (m2 delay gshandle, 
fddi2 sink accum delay / fddi2 sink total pkts); 


op stat global write (m2 delay gshandle a[0], 
fddi2 sink accum delay a[0]/fddi2 sink total pkts a[0]); 
op stat global write (m2 delay gshandle a[1], 
fddi2 sink accum delay a[1]/fddi2 sink total pkts а[1]); 
op stat global write (m2 delay gshandle a[2], 
fddi2 sink accum delay. a[2] / fddi2 sink total pkts a[2]); | 
op stat global write (m2 delay gshandle a[3], 
fddi2 sink accum delay a[3]/fddi2 sink total pkts a[3]); 
op stat global write (m2 delay gshandle a[4], 
fddi2 sink accum delay a[4]/ fddi2 sink total pkts a[4]); 
op stat global write (m2 delay gshandle a[5], 
fddi2 sink accum delay a[5]/fddi2 sink total pkts a[5]); 
op stat global write (m2 delay gshandle a[6], 
fddi2 sink accum delay. a[6] / fddi2, sink total pkts a[6]); 
op stat global write (m2 delay gshandle a[7], 
fddi2 sink accum delay. a[7] / fddi2 sink total pkts a[7]); 
op. stat global write (m2 delay. gshandle а[8], 
fddi2 sink accum, delay a[8] /fddi2 sink total pkts a[8]); 


/* 30JAN94: gather all asynch stats into one figure */ 

op stat global write (m2 delay. gshandle a[9]. 
(fddi2 sink accum delay - fddi2 sink accum delay a[8])/ 
(fddi2 sink total pkts - fddi2 sink total pkts a[8])); 


/* (fddi2 sink accum, delay a[0] - fddi2 sink accum delay a[1] + */ 
/* fddi2 sink accum delay a[2] 4 fddi2 sink accum delay a[3] + */ 
/* fddi2 sink accum delay a[4] * fddi2 sink accum, delay a[5] 4 */ 
/* fddi2 sink accum delay a[6] * fddi2 sink accum delay a[7]) / */ 
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/* (fddi2 sink total pkts a[0] 4 fddi2 sink total pkts a[1] + */ 
/* fddi2 sink total pkts a[2] 4 fddi2 sink total pkts a[3] + */ 
/* fddi2 sink total pkts a[4] - fddi2 sink total pkts a[5] 4 */ 
/* fddi2 sink total pkts a[6] -- fddi2 sink total pkts a[7])); */ 


20JAN-20APR94 */ 


/* also record actual delay values */ 

op. stat. global write (ete2 delay gshandle, delay); 

op stat global write (ete2 delay gshandle a[pri2 set], delay); 
) 

}/*end of if(dest_addr==my_addr)&&(src_addr > 9)statement */ 


/* 20APR94: destroy the packets coming from the first lan destined */ 
/* for this station. These packets are not counted for local traffic.*/ 
else if(dest_addr == my_addr) 

Op. pk destroy(pkptr); 


/* Other frames passed to "llc" should be destined for other lan */ 
/* 18APR94 :allocate the packets to transmitter of command link */ 
else 


{ 


/* add in its size */ 
fddilp2_total_bits += op pk total size get (pkptr); 
fddilp2 total bits a[pri2 set] *- op pk total size get (pkptr); /* 


/* increment packet counter; 20A PR94 */ 
fddilp2 total pkts--r; 
fddilp2 total pkts, a[pri2 set]-—; 


/* if a multiple of 25 packets is reached, update stats */ 
/* [0]-2[7] represent asynch priorities 1-58, */ 

/* respectively; [8) represents synchronous traffic, */ 

/* and [9] represents overall asynchronous traffic.-Nix */ 
if (fddilp2 total pkts % 25 == 0) 

| 

op stat global write (2 gshandle, 

fddilp2 total bits / op sim üme ()); 


op stat global write (t2 gshandle a[pri2 set], 


fddilp2 total bits a[0] / op sim timeQ); 
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op_stat_global_write (t2_gshandle_a[0], 
fddilp2_total_bits_a[1] / op_sim_time()); 
op stat global write (t2 gshandle a[1], 
fddilp2 total bits a[pri2 set]/ op sim time()); 
op stat global write (t2 gshandle a[2], 
fddilp2 total bits a[2] / op sim time(Q); 
op. stat. global write (t2 gshandle a[3], 
fddilp2 total bits a[3] / op sim time()); 
op stat global write (t2 gshandle a[4], 
fddilp2 total bits a[4] / op sim time()); 
op. stat global write (t2 gshandle a[5], 
fddilp2 total bits a[5] / op. sim time(Q); 
op stat global write (t2 gshandle, a[6], 
fddilp2 total bits a[6] / op sim time(); 
op. stat global write (t2 gshandle, a[7], 
fddilp2 total bits a[7] / op sim time()); 
op stat global write (t2 gshandle , a[8], 
fddilp2 total bits a[8] / op. sim time()); 


/* gather all asynch stats into one overall figure */ 
op stat global write (t2 gshandle a[9], 

(fddilp2 total bits - fddilp2 total bits a[8])/ 

op sim time()); 


/* (fddilp2 total bits a[0] 4 fddilp2 total bits a[1] + */ 
/* fddilp2 total bits a[2] -- fddilp2 total bits a[3] + */ 
/* fddilp2 total bits a[4]  fddilp2 total bits a[5] + */ 
/* fddilp2 total bits a[6] * fddilp2 total bits a[7]) / */ 
/* op. sim time()); */ 


} 


/* 21APR94:allocate packets to the command link transmiter */ 
/* altered for ppp 1AUG9% */ 
ppp. pkptr 2 op pk create fmt("ppp ml"); 
op. pk níd set (ppp. pkptr, "pid h", 0x00); 
Op. pk nfd set (ppp. pkptr, "pid 1", 0x3d); 
op pk nfd set (ppp pkptr, "FDDI frame", pkptr); 
/* put ppp packet on subqueue to be xmitted */ 
op. subq pk insert(O, ppp pkptr, OPC_QPOS_ TAIL); 
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}/* end of else */ 
}/* end of else for (if ppp and from LLC_source) */ 


/* check if this subqueue is empty and transmitter is not busy */ 
if ((!op_subq_empty(0))&&(busy == 0.0)) 

{ 

/*access the first packet in the subqueue */ 

pkptrl 2 op subq pk remove (0, OPC QPOS HEAD); 

/* forward it to the transmitter of command link */ 

op. pk send (pkptrl, 0); 

} 


break; 
}/* end of case OPC_INTRPT_STRM statement */ 


}/* end of switch */ 


/** blocking after enter executives of unforced state. **/ 
FSM_EXIT (1,sp_fddi_sink) 


/** state (DISCARD) exit executives **/ 

FSM STATE EXIT UNFORCED (O0, stateO. exit, exec, "DISCARD") 
{ 
} 


/** state (DISCARD) transition processing **/ 
FSM_INIT_COND (END_OF_SIM) 
FSM_DFLT_COND 
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FSM_TEST_LOGIC (“DISCARD”) 


FSM_TRANSIT_SWITCH 
{ 
FSM CASE TRANSIT (0, 1, statel enter exec, ;) 
FSM CASE TRANSIT (1, O, stateO enter. exec, ;) 


/** state (STATS) enter executives **/ 
FSM_STATE_ENTER_UNFORCED (1, statel_enter_exec, “STATS”’) 

{ 

/* At end of simulation, scalar performance statistics */ 

/* and input parameters are written out. */ 

/* This is for command link throughput :21 APR94*/ 

op stat scalar write ("CL Throughput (bps), Priority 1”, 
fddilp2 total bits a[0] / op sim time (y); 


op stat scalar write (CL Throughput (bps), Priority 2”, 
fddilp2 total bits a[1] / op sim, time 0); 


op stat scalar write (“CL Throughput (bps), Priority 3”, 
fddilp2 total bits a[2] / op_sim_time ()); 


op. stat scalar write ("CL Throughput (bps), Priority 4", 
fddilp2 total bits a[3] / op. sim time ()); 


op stat scalar write (‘CL Throughput (bps), Priority 5”, 
fddilp2_total_bits_a[4] / op_sim_time ()); 


op stat scalar write ("CL Throughput (bps), Priority 6”, 
fddilp2 total bits a[5] / op sim time Q); 


op stat scalar write (CL Throughput (bps), Priority 7", 
fddilp2 total bits a[6] / op sim time Q); 


op. stat scalar write (CL Throughput (bps), Priority 8”, 
fddilp2 total bits a[7] / op sim time Q); 


op. stat scalar write (“CL Throughput (bps), Asynchronous", 
(fddilp2 total bits - fddilp2 total bits a[8]) / op sim time ()); 
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/* (fddilp2 total bits a[0] -- fddilp2 total bits a[1] + */ 
/* fddilp2 total bits a[2] * fddilp2 total bits a[3] + */ 

/* fddilp2 total bits a[4] -- fddilp2 total bits a[5] + */ 

/* fddilp2 total bits a[6] -- fddilp2 total bits a[7]) / */ 

/* op sim time ()); */ 


op stat scalar write (“CL Throughput (bps), Synchronous”, 
fddilp2 total bits a[8] / op sim time ()); 


op stat scalar write (“CL Throughput (bps), Total”, 
fddilp2 total bits / op sim time ()); 


/* Only one station needs to do this for the second ring(Ring 1)*/ 
if (!fddi2, sink scalar write) 

{ 

/* set the scalar write flag */ 

fddi2 sink scalar write = 1; 


Op stat scalar write ("Mean End-to-End Delay-1 (sec.), Priority 1", 
fddi2 sink accum delay a[0]/fddi2 sink total pkts a[0]); 


op stat scalar write ("Mean End-to-End Delay- 1(sec.), Priority 2", 
fddi2 sink accum delay a[1]/ fddi2 sink total pkts a[1]); 


op. stat, scalar. write ("Mean End-to-End Delay- 1 (sec.), Priority 3”, 
fddi2 sink accum, delay. a[2] / fddi2, sink, total. pkts a[2]); 


op stat scalar write (Mean End-to-End Delay-1 (sec.), Priority 4", 
fddi2 sink accum delay a[3]/ fddi2 sink total pkts a[3]); 


op stat scalar write ("Mean End-to-End Delay-1 (sec.), Priority 5", 
fddi2 sink accum delay a[4]/ fddi2 sink total pkts a[4]); 


op stat scalar write ("Mean End-to-End Delay-1 (sec.), Priority 6", 
fddi2 sink accum, delay a[5]/ fddi2 sink total pkts a[5]); 


op stat scalar write ("Mean End-to-End Delay-1 (sec.), Priority 7", 
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fddi2_sink_accum_delay_a[6] / fddi2_sink_total_pkts_a[6}); 


op stat scalar write ("Mean End-to-End Delay- 1 (sec.), Priority 8", 
fddi2 sink accum delay a[7]/fddi2 sink total pkts a[7]); 

op stat scalar write (Mean End-to-End Delay-1 (sec.), Asynchronous", 
(fddi2 sink accum delay - fddi2 sink accum delay a[8])/ 
(fddi2 sink total pkts - fddi2 sink total pkts a[8])); 


/* (fddi2 sink accum delay a[0] -* fddi2 sink accum, delay a[1l]- */ 
/* fddi2 sink accum delay a[2]-t fddi2 sink accum delay. a[3] - */ 

/* fddi2 sink accum delay. a[4] - fddi2 sink accum, delay. a[5] - */ 

/* fddi2, sink accum delay a[6] -- fddi2 sink accum delay. a[7]) / */ 

/* (fddi2 sink total pkts a[0]  fddi2 sink total pkts a[1] + */ 

/* fddi2 sink total pkts a[2]  fddi2 sink total pkts a[3] * */ 

/* fddi2 sink total pkts a[4] -- fddi2 sink total pkts a[5] * */ 

/* fddi2 sink total pkts a[6] - fddi2 sink total pkts a[7])); */ 


op. stat scalar write ("Mean End-to-End Delay-1 (sec.), Synchronous", 
fddi2 sink accum delay a[8]/fddi2 sink total pkts a[8]); 


op stat scalar write ("Mean End-to-End Delay-1 (sec.), Total", 
fddi2 sink accum delay / fddi2 sink total pkts); 


op stat scalar write ("Throughput-1 (bps), Priority 1", 
fddi2 sink total bits a[0] / op sim time ()); 


op stat scalar write ("Throughput-1 (bps), Priority 2”, 
fddi2 sink total bits a[1] /op. sim time ()); 


op stat scalar write ("Throughput-1 (bps), Priority 3", 
fddi2 sink total bits a[2] / op. sim time ()); 


op stat scalar write ("Throughput-1( bps), Priority 4", 
fddi2 sink total bits a[3] / op. sim time ()); 


op.stat scalar write ("Throughput-1 (bps). Priority 5", 
fddi2 sink total bits a[4] / op sim time ()); 


op stat scalar write ("Throughput-1 (bps), Priority 6", 
fddi2 sink total bits a[5] / op sim time ()); 
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op stat scalar write ("Throughput-1 (bps), Priority 7", 
fddi2 sink total bits a[6] / op sim, time ()); 


op stat scalar write ("Throughput-1 (bps), Priority 8”, 
fddi2 sink total bits a[7] / op sim time Q); 


op stat scalar write ("Throughput-1 (bps), Asynchronous”, 
(fddi2 sink total bits - fddi2 sink total bits a[8]) / op sim üme ()); 


/* (fddi2 sink total bits a[0] -- fddi2 sink total bits a[1] + */ 
/* fddi2 sink total bits a[2] - fddi2 sink total bits a[3] *- */ 
/* fddi2 sink total bits a[4] 4 fddi2 sink total bits a[5] + */ 
/* fddi2 sink total bits a[6] -- fddi2 sink total bits a[7]) / */ 
/* op sim time Q); */ 


op stat scalar write (Throughput-1 (bps), Synchronous", 
fddi2 sink total bits a[8] / op. sim time ()); 


op. stat scalar write ("Throughput-1 (bps), Total", 
fddi2 sink total bits / op sim, time ()); 
op. stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 1", 


fddi2 sink peak, delay. a[0]); 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 2", 
fddi2 sink peak delay a[1]): 


op. stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 3”, 
fddi2 sink peak delay. a[2]); 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 4”, 
fddi2 sink peak delay a[3)): 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 5", 
fddi2 sink peak delay. a[4]): 


ор stat scalar write (“Peak End-to-End Delay-1 (sec.), Priority 6”, 
fddi2_sink_peak_delay_a[5)); 
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op stat scalar write (Peak End-to-End Delay-1 (sec.), Priority 7", 
fddi2 sink peak delay. a[6]); 


op stat scalar write ("Peak End-to-End Delay-1 (sec.), Priority 8", 
fddi2 sink peak delay a[7]); 


op stat scalar write (Peak End-to-End Delay-1 (ѕес.), Ѕупсһгопоиѕ”, 
fddi2 sink peak delay a[8]); 


op. stat scalar write ("Peak End-to-End Delay-1 (sec.), Overall", 
fddi2 sink peak delay); 


/* Write the TTRT value for ring 0. This preserves*/ 

/* the old behavior for single-ring simulations.*/ 

op. stat scalar write ("TTRT (sec.) - Ring 1”, 
fddi t opr [1]; 


/* 12JAN94: obtain offered load information from the Environment */ 

/* file; this will be used to provide abscissa information that */ 

/* can be plotted in the Analysis Editor (see "fddi sink" STATS */ 

/* state. To the user: it’s your job to keep these current in */ 

/* the Environment File. -Nix */ 

op. ima, sim, attr get (OPC IMA DOUBLE, "total offered load 1", 
&Offered Load); 

op ima sim attr. get (OPC IMA DOUBLE, "asynch offered load 1", 
&Asynch Offered Load); 


/* 12JAN94: write the total offered load for this run */ 
op stat scalar write ("Total Offered Load-1 (Mbps)", 
Offered. Load); 


op stat scalar write (“Asynchronous Offered Load-1 (Mbps)”, 
Asynch Offered Load); 

) 
) 


/** blocking after enter executives of unforced state. **/ 
FSM EXIT (3,sp fddi sink) 
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/** state (STATS) exit executives **/ 
FSM_STATE_EXIT_UNFORCED (1, statel_exit_exec, “STATS’’) 
{ 
} 


/** state (STATS) transition processing **/ 
FSM_TRANSIT_MISSING (‘STATS’’) 


/** state (INIT) enter executives **/ 

FSM STATE ENTER FORCED (2, state2 enter exec, "INIT") 
{ 
/* get the gshandles of the global statistic to be obtained */ 
/* 20JAN94: set array format */ 


thru2_gshandle_a[0] = op_stat_global_reg (“pri 1 throughput-1 (bps)’’); 
thru2 gshandle a[1] — op. stat global reg (pri 2 throughput-1 (bps)'); 
thru2 gshandle а[2] = op. stat. global reg ("pri 3 throughput-1 (bps)’’); 
thru2_gshandle_a[3] 7 op. stat. global reg ("pri 4 throughput-1 (bps)"); 
thru2 gshandle a[4] - op. stat global reg (pri 5 throughput-1 (bps)"); 
thru2 gshandle a[5] - op stat global reg (*pri 6 throughput-1 (bps)"); 
thru2 gshandle a[6] - op. stat. global reg ("pri 7 throughput-1 (bps)’’); 
thru2 gshandle a[7] - op. stat. global, reg ("pri 8 throughput-1 (bps)”’); 
thru2 gshandle a[8] - op. stat. global reg ("synch throughput-1 (bps)'); 
thru2 gshandle a[9] 2 op. stat global reg (*async throughput-1 (bps)); 
thru2 gshandle — op stat global reg ("total throughput-1 (bps)'; 


m2 delay gshandle  a[0] 2 op. stat global reg ("pri 1 mean delay-1 (sec.)"); 
m2 delay gshandle a[1] — op. stat global reg ("pri 2 mean delay-1 (ѕес.)”); 
m2 delay gshandle a[2] 7 op. stat. global reg (pri 3 mean delay-1 (sec.)’’); 
m2 delay gshandle a[3] — op. stat global reg (“pri 4 mean delay-1 (sec.)’’); 
m2 delay. gshandle а[4] = op. stat global reg (pri 5 mean delay-1 (sec.)’’); 
m2 delay gshandle a[5] - op. stat. global reg (pri 6 mean delay-1 (sec.)'); 
m2 delay gshandle, a[6] - op stat global reg ("pri 7 mean delay-1 (sec.)'); 
m2 delay. gshandle a[7) 2 op. stat global reg (pri 8 mean delay-1 (sec.)’’); 
m2 delay gshandle a[8] - op. stat global reg ("synch mean delay-1 (sec.)'); 
m2 delay gshandle, a[9] — op. stat. global reg (async mean delay-1 (sec.)'); 
m2 delay gshandle — op stat global reg ("total mean delay-1 (ѕес.)”); 


ete2 delay gshandle a[0]- op. stat. global reg ("pri 1 end-to-end delay-1 (sec.)”’); 
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ete2_delay_gshandle_a[1] = op_stat_global_reg (“pri 2 end-to-end delay-1 (sec.)”’): 
ete2_delay_gshandle_a[2] = op_stat_global_reg (“pri 3 end-to-end delay-1 (sec.)’’); 
ete2_delay_gshandle_a[3] = op_stat_global_reg (‘‘pni 4 end-to-end delay-1 (sec.)’’); 
ete2_delay_gshandle_a[4] = op_stat_global_reg (“pri 5 end-to-end delay-1 (sec.)’’); 
ete2_delay_gshandle_a[5] = op_stat_global_reg (‘‘pri 6 end-to-end delay-1 (sec.)’’); 
ete2 delay gshandle a[6]- op stat global reg ("pri 7 end-to-end delay-1 (sec.)”’); 
ete2 delay gshandle a[7]- op stat global reg ("pri 8 end-to-end delay-1 (ѕес.)”); 
ete2 delay gshandle a[8] —- op stat global reg (“synch end-to-end delay-1 
(вес.)”); 
ete2_delay_gshandle = op_ stat_global_reg ("total end-to-end delay-1 (sec.)’’); 


t2 gshandle a[0] 2 op. stat global reg ("pri 1 CL throughput (bps)"); 
t2 gshandle a[1] -» op. stat. global reg ("pri 2 CL throughput (bps)'); 
t2 gshandle a[2] - op stat global reg (pri 3 CL throughput (bps)"); 
t2 gshandle а[3] = op. stat global reg ("pri 4 CL throughput (bps)'); 
t2 gshandle a[4] = op. stat global reg ("pri 5 CL throughput (bps)'); 
t2 gshandle a[5] 2 op. stat global reg ("pri 6 CL throughput (bps)'); 
t2 gshandle a[6] - op. stat global reg ("pri 7 CL throughput (bps)'); 
t2 gshandle a[7] 7 op. stat. global reg ("pri 8 CL throughput (bps)"); 
t2 gshandle a[8] = op. stat global reg ("synch CL throughput (bps)"); 
t2 gshandle a[9] 2 op. stat. global reg ("async CL throughput (bps)"); 
t2 gshandle — op stat global reg ("total CL throughput (bps)’’); 


/** state (INIT) exit executives **/ 

FSM STATE EXIT FORCED (2, state2 exit exec, ^INIT") 
{ 
} 


/** state (INIT) transition processing **/ 
FSM_INIT_COND (END_OF_SIM) 
FSM_DFLT_COND 
FSM_TEST_LOGIC (“INIT”) 


FSM_TRANSIT_SWITCH 


{ 
FSM_CASE_TRANSIT (0, 1, statel enter exec, ;) 
FSM, CASE TRANSIT (1, O, stateO enter exec, ;) 
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FSM_EXIT (2,sp_fddi_sink) 
} 


sp_fddi_sink_svar (prs_ptr,var_name,var_p_ptr) 


sp fddi sink state*prs ptr; 
char *var name, **var p ptr; 


{ 
FIN (sp_fddi_sink_svar (prs_ptr)) 


*var p ptr z VOS NIL; 
if (Vos String Equal ("thru2 gshandle" , var name)) 
*var p ptr 2 (char *) (&prs ptr-5»sv thru2 gshandle), 
if (Vos String Equal ("m2 delay. gshandle" , var name)) 
*var p ptr — (char *) (&prs ptr-5»sv. m2 delay. gshandle); 
if (Vos String Equal ("ete2 delay. gshandle" , var. name)) 
*var p ptr — (char *) (&prs ptr-5sv ete2 delay gshandle); 
if (Vos String Equal ("thru2 gshandle a", var name)) 
*var p. ptr —- (char *) (prs ptr-»sv thru2 gshandle a); 
if (Vos String Equal ("m2 delay gshandle a", var name)) 
*var p ptr — (char *) (prs ptr-»sv m2 delay gshandle, a); 
if (Vos String Equal ("ete2 delay gshandle a", var name)) 
*var p ptr — (char *) (prs ptr-»sv ete2 delay gshandle a); 
if (Vos String Equal ("t2 gshandle", var name)) 
*var p ptr — (char *) (&prs ptr-»sv t2 gshandle); 
if (Vos String Equal ("t2 gshandle a", var name)) 
*var p ptr 7 (char *) (prs ptr-»sv t2 gshandle а); 
if (Vos String Equal (*my. id" , var name)) 
*var p ptr — (char *) (&prs ptr-»sv, my 14); 


FOUT, 
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void 

sp fddi sink diag () 
{ 
double delay, creat_time; 
Packet* pkptr; 


Packet* ppp. pkptr; 
Packet* pkptrl ; /*SAPR94*/ 


int src_addr, my_ addr; 

int dest addr;/*14APR94*/ 
Ici* from mac. ici ptr; 

double fddi sink ttrt; 

char pk. format[10]; 

int input stream; 

int fd index, FDDI frame size; 


FIN (sp fddi sink diag 0) 


FOUT, 


void 

sp_fddi_sink_terminate () 
{ 
double delay, creat_time; 
Packet* pkptr; 


Packet* Dpp. pkptr; 
Packet* pkptrl ; /*SAPR94*/ 


int src_addr, my_addr; 

int dest_addr;/* 14APR94*/ 

Ici* from_mac_ici_ptr; 

double fddi sink ttrt; 

char pk format[10]; 

int input stream; 

int fd index, FDDI. frame size; 
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FIN (sp_fddi_sink_terminate ()) 


FOUT, 


Compcode 
sp_fddi_sink_init (pr_state_pptr) 


sp_fddi_sink_state**pr_state_pptr; 


{ 
static VosT_Cm_Obtypeobtype = OPC_NIL; 


FIN (sp_fddi_sink_init (pr_state_pptr)) 


if (obtype == OPC_NIL) 
{ 
if (Vos_Catmem_Register (“proc state vars (sp fddi sink)", 
sizeof (sp_fddi_sink_state), Vos_Nop, &obtype) == VOSC_FATLURE) 
FRET (OPC_COMPCODE_FAILURE) 


} 


if ((*pr_state_pptr = (sp_fddi_sink_state*) Vos Catmem Alloc (obtype, 1)) == OPC_NIL) 
FRET (OPC_COMPCODE_FAILURE) 
else 


{ 
(*pr_state_pptr)->current_block = 4; 
FRET (OPC_COMPCODE_SUCCESS) 


} 
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APPENDIX M 


TCP RING 1 MAC MODULE CODE 
*sp. fddi mac, tcp.pr.c" 


Unchanged portions of this code have been deleted for brevity. 


/* Process model C form file: sp fddi mac tcp.pr.c */ 
/* Portions of this file Copyright (C) MIL 3, Inc. 1992 */ 


/* OPNET system definitions */ 
#include <opnet.h> 

#include “‘sp_fddi_mac_tcp.pr.h” 
FSM_EXT_DECS 


/* Header block */ 

/* Define a timer structure used to implement */ 

/* the TRT and THT timers. The primitives defined to */ 
/* operate on these timers can be found in the */ 

/* function block of this process model. */ 


typedef struct 
{ 
int enabled; 
double Start_time; 
double accum; 
double target_accum; 
} FddiT_Timer; 


/* Declare certain primitives dealing with timer.s */ 


double fddi_timer_remaining (); 
FddiT_Timer* fddi_timer_create (); 
double fddi_timer_value (); 


/* Scratch strings for trace statements */ 
char strO [512], str1 [512]; 
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/* define constants particular to this implementation */ 
#define FDDI_MAX_STATIONS 512 


/* define possible values for the frame control field */ 
#define FDDI_. FC FRAME 0 
define FDDI FC TOKEN 1 


/* define possible service classes for frames */ 
#define FDDI_SVC_ASYNC 0 
#define FDDI_SVC_SYNC 1 


/* define input stream indices */ 
#define FDDI_LLC_STRM_IN 1 
#define FDDI_PHY_STRM_IN 0 


/* define output stream indices */ 
#define FDDI_LLC_STRM_OUT 
#define FDDI_PHY_STRM_OUT 0 


= 


/* define token classes */ 
#define FDDI_TK_NONRESTRICTED 0 
#define FDDI_TK RESTRICTED 1 


/* Ring Constants */ 
#define FDDI_TX_RATE 1.0e+08 
#define FDDI_LSA_SCAN_TIME 28.0е-08 


/* Token transmission time: based on 6 symbols plus 16 symbols of preamble */ 
#define FDDIC_TOKEN_TX_TIME — 88.0e-08 


/* Codes used to differentiate remote interrupts */ 
#define FODDIC_TRT_EXPIRE 0 
#define FDDIC_TK_INJECT 1 


/* Define symbolic expressions used on transition */ 
/* conditions and in executive statements. */ 
#define TRT_EXPIRE \ 
(ор іптрі туре О -- ОРС ІМТЕРТ КЕМОТЕ 44 ор. ішгрі. сойе () == 
FDDIC_TRT_EXPIRE) 
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define TK RECEIVEDN 
phy. arrival &&*N 
frame control Zz FDDI FC TOKEN 


4define RC FRAME \ 
phy arrival &&* 
frame control 2z FDDI FC FRAME 


stdefine FRAME ARRIVAIN 
op intrpt type () Z2 OPC INTRPT STRM &&\ 
op intrpt strm () 22 FDDI LLC STRM IN 


ftdefine STRIPmy. address == src, addr 


/* Define the maximum value for ring. id. This is the*/ 
/* maximum number of FDDI rings that can exist in a*/ 
/* simulation. Note that if this number is changed,*/ 

/* the initialization for fddi_claim_start below must*/ 
/* also be modified accordingly.*/ 

#define FDDILMAX_RING_ID 8 


/* Declare the operative TTRT value “T_Opr’ which is the final*/ 
/* negotiated value of TTRT. This value is shared by all stations*/ 
/* on a ring so that all agree on its value.*/ 

double  fddi t opr [FDDI MAX RING ID]; 

#define Fddi T Opr (fddi t opr [ring id]) 


/* This flag indicates that the negotiation for the final TTRT*/ 
/* has not yet begun. It is statically initialized here, and*/ 

/* is reset by the first station which modifies T_Opr.*/ 

/* Initialize to 1 for all rings.*/ 


static 
int fddi_claim_start [FDDI_LMAX_RING_ID] = {1,1,1,1,1,1,1,1}; 
#define Fddi_Claim_Start(fddi_claim_start [ring_id]) 


/* Declare station latency parameters. */ 

/* These are true globals, so they do not need to be arrays. */ 
double Fddi_St_Latency; 

double  Fddi Prop Delay; 


/* Declare globals for Token Acceleration Mechanism.*/ 
/* Hop delay and token acceleration are true globals.*/ 
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double  Fddi Tk Hop Delay; 
static 
int Fddi Tk. Accelerate = 1; 


/* These are actually values shared by all nodes on a ring,*/ 

/* so they must be defined as arrays.*/ 

double  fddi tk block base time [FDDI MAX RING ID]; 

4define Fddi Tk Block Base Time(fddi tk block base time [ring id]) 


int fddi tk block base station [FDDI MAX RING. ID]; 
#define Fddi Tk Block Base Station(fddi tk block base station [ring id]) 


int fddi tk blocked [FDDI MAX RING ID]; 
*define Fddi Tk Blocked(fddi ік blocked [ring id]) 


int fddi num, stations [FDDI MAX RING. ID]; 
#define Fddi Num Stations(fddi num. stations [ring id]) 


int fddi num registered [FDDI MAX RING ID]; 
#define Fddi Num, Registered(fddi num registered [ring id]) 


Objid X fddi address table [FDDI MAX RING ID][FDDI MAX STATIONS]; 
#define Fddi Address Table(fddi address table [ring id]) 


/* Below is part of the OPBUG 2081 patch; FB ended here, before. -Nix */ 


/* Event handles for the TRT are maintained at a global level to */ 

/* allow token acceleration mechanism to adjust these as necessary */ 

/* when blocking and reinjecting the token. TRT. handle simply */ 

/* represents the TRT for the local MAC*/ 

Evhandlefddi trt handle [FDDI MAX RING ID][FDDI MAX STATIONS]; 
#define Fddi Trt Handle(fddi trt handle [ring_id]) 

*define TRT handle — Fddi Trt Handle [my. address] 


/* Similarly, the TRT data structure is maintained on a global level. */ 
FddiT. Timer*fddi trt [FDDI MAX RING. ID] [FDDI. MAX, STATIONS]; 
#define Fddi Trt (fddi trt [ring. id]) 


#define ТЕТ Fddi Trt [my. address] 
/* Registers to record the expiration time of each TRT when token is blocked. */ 


double  fddi trt exp time [FDDI MAX RING ID] [FDDI MAX STATIONS]; 
ftdefine Fddi Trt Exp Time(fddi trt exp. time [ring. id]) 
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/* the ‘Late_Ct’ flag is declared on a global level so that it can be */ 

/* set at the tim ewhere the token is injected back into the ring. */ 

int fddi_late_ct [FDDI_MAX_RING_ID) [FDDI_MAX_STATIONS]; 
#define Fddi_Late_Ct (fddi_late_ct [ring_id]) 

#define Іле Сі Fddi_Late_Ct [my_address] 


/* Convenient macro for setting TRT for a given station and absolute time. */ 

#define TRT_SET(station_id,abs_time)\ 

fddi_timer_set (Fddi_Trt [station_id], abs_time - op_sim_time())\ 

Fddi_Trt_Handle [station id] 2 op. intrpt schedule remote (abs time 
FDDIC TRT EXPIRE, Fddi Address. Table [station id]); 


/* State variable definitions */ 
typedef struct 
{ 
FSM_SYS_STATE 
int sv ring id; 
FddiT Timer* sv THT; 
double sv T Req; 
double sv T Pri [8]; 


Objid sv my objid; 

int sv spawn token; 
int sv my address; 
int sv Orig src addr; 
Packet* sv tk pkptr; 
double sv sync bandwidth; 
double Sv Sync pc; 

int sv restricted; 

int sv res peer, 

int sv tk registered; 
ІСІ” sv to llc ici ptr; 
int SV ІК trace on; 


) sp. fddi mac tcp. state; 


#define pr. state ptr ((sp. fddi mac tcp. state*) SimI. Mod State. Ptr) 
#define ring _id pr_state_ptr->sv_ring_id 
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#define THT 

#define T_Req 
#define T_Pni 

#define my_objid 
#define spawn_token 
#define my_address 
#define orig_src_addr 
#define tk_pkpt 
#define sync_bandwidth 
#define sync_pc 
#define restricted 
#define res_peer 
#define tk_registered 
#define to_lc_ici_ptr 
#define tk_trace_on 


pr_state_ptr->sv_THT 

pr state ptr-»sv T Кед 

pr state ptr-»sv T Pri 

pr state ptr-^sv my objid 

pr state ptr-^sv spawn token 
pr state ptr-^sv my address 
pr state ptr-^sv orig src addr 
pr state ptr-»sv tk pkptr 

pr state ptr-»sv sync bandwidth 
pr state ptr-^sv sync pc 

pr state ptr-»sv restricted 

pr state ptr-»sv res peer 

pr state ptr-^»sv tk registered 
рг state ptr-5sv to llc ici ptr 
pr state ptr-»sv tk trace on 


/* Process model interrupt handling procedure */ 


void 
sp fddi mac tcp O 
{ 


/* Packets and ICI’s */ 


Packet* mac frame ptr; 


Packet* pdu ptr; 


Packet* pkptr; 


Packet* data pkptr; 


Ici* ici ptr; 


/* Packet Fields and Attributes */ 


int req pri, svc class, req tk class; 
int frame control, src. addr, dest addr; 
int pk len, pri level; 


/* Token - Related */ 


int tk usable, res station, tk. class; 
int current tk class; 
double accum sync; 
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/* Timer - Related */ 
double tx time, timer remaining, accum bandwidth; 
double tht value; 


/* Miscellaneous */ 
int i 


int spawn, station, phy arrival; 
char error string [512]; 
int num frames sent, num bits sent; 


/* 26DEC93: loop management variables, used in RCV TK */ 
/* and ENCAP states. -Nix */ 

int NUM. PRIOS; 

int punt; 

int q check; 


p E dE Eoo o ДЕ Е КК kekokeek ЕЖ ЖЖ ЖӘЕ Ж/ 


/* 11SEP94: added creation time */ 
double creation, time; 


FSM ENTER (sp. fddi mac, tcp) 


FSM, BLOCK SWITCH 


/** state (INIT) enter executives **/ 
FSM STATE ENTER. FORCED (0, stateO enter. exec, "INIT") 
{ 
/* Obtain the station’s address . This is an attribute */ 
/* of this process. Addressing is simplified by */ 
/* simply using integers, and only one mode. */ 
/* This mode is 16 bit addressing unless the */ 
/* packet format 'fddi mac fr' is modified. */ 
my. objid 2 op id self(); /* 29DEC93 */ 
op. ima, obj attr get (my objid. "station address", &my, address); 


/* Register the station's object id in a global table. */ 

/* This table is used by the mechanism which improves */ 
/* simulation efficiency by ' jumping over' idle periods */ 
/* rather than circulating an unusable token. */ 

fddi station register (my. address, my. objid); 
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/* Obtain the station latency for tokens and frames. */ 

/* Default value is set at 100 nanoseconds. */ 

Fddi_St_Latency - 100.0е-09; 

op ima sim attr get (OPC IMA DOUBLE, "station latency", 
&Fddi St Latency); 


/* Obtain the propagation delay separating stations. */ 

/* This value is given in seconds with default value 3.3 microseconds. */ 

Fddi Prop Delay - 3.3e-06; 

op ima sim attr get (OPC IMA DOUBLE, "prop delay", &Fddi Prop Delay); 


/* Derive the Delay for a ‘hop’ of a freely circulating packet. */ 
Fddi_Tk_Hop_Delay = Fddi_Prop_Delay + Fddi_St_Latency; 


/* The T_Pri [] state variable array supports priority */ 

/* assignments on a station by station basis by */ 

/* establishing a correspondence between integer priority */ 

/* levels assigned to frames and the maximum values of the */ 

/* token holding timer (THT) which would allow packets to be */ 
/* sent. Eight levels are supported here, but this can easily */ 

/* be changed by redimensioning the priority array. */ 

/* By default all levels are identical here, allowing */ 

/* any frame to make use of the token, so that in fact */ 

/* priority levels are not used in the default case. */ 


/* OLJAN94: (8-1) is a quick attempt to impart different weighting */ 
/* scales on each priority level, and is not necessarily realistic.-Nix */ 
/* Be aware of integer-double arithmetic conflicts 1e, 1/8 = 0. -Nix */ 


op_ima_obj_attr_get(my_objid, “T_Req”’, &T_Req); 
for (i = 0; 1 < 8; i++) 
{ 
T_Pni[i] = ((double)(i + 1.0)/8.0) * Fddi Т Орг; 
/* printf(“MAC INIT: T_Pri{%d] is Zlf; */ 
/* Fddi_T_Opr is ?golfn", 1, T. Pri[1], Fddi T. Opr); */ 
} 


/* Create the token holding timer (THT) used to restrict the */ 
/* asynchronous bandwidth consumption of the station */ 
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THT = fddi_timer_create (); 


/* Create the token rotation timer (TRT) used to measure the */ 
/* rotations of the token, detect late tokens and initialize */ 

/* the THT timer before asynchronous tranmsmissions. */ 
TRT = fddi_timer_create (); 


/* Set the TRT timer to expire in one TTRT */ 
TRT. SET (my. address, op sim time () *- Fddi Т Орг); 


/* Initialize the Late Ct variable which keeps track. */ 
/* of the number of TRT expirations. */ 
Late_Ct = 0; 


/* initially the ring operates in nonrestricted mode */ 
restricted = 0; 


/* Create an Interface Control Information structure */ 
/* to use when delivering received frames to the LLC. */ 
Еак жу 


/*11SEP94: changed to new format, adding pri and cr_time**/ 
fama at claret ЖЖЖ КК ККЕ ОКЖ ЖЖ ЕЖ ЖЕ ЖЕЖ ЖЖЖ у 


to_lic_ici_ptr = op ici create ("fddi mac ind tcp"); 


/* The ‘tk_registered’ variable indicates if the station */ 
/* has registered its intent to use the token. */ 
tk registered - 0; 


/* Determine if the model is to make use of the token */ 

/* ‘acceleration’ mechanism. If not, every passing of the */ 

/* token will be explicityly modeled, leading to large */ 

/* number of events being scheduled when the ring is idle */ 

/* (i.e, no stations have data to send). */ 

op. ima sim, attr get (OPC IMA INTEGER, "accelerate token", 
&Fddi Tk Accelerate); 


/* Obtain the synchronous bandwidth assigned */ 

/* to this station. It is expressed as a */ 

/* percentage of TTRT, and then converted to seconds */ 

op ima obj attr get (my. objid, "sync bandwidth", &sync pc); 
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sync_bandwidth = sync_pc * Fddi_T_Opr; 


/* Only one station in the ring is selected to */ 
/* introduce the first token. Test if this station is it. */ 
/* If so, set the 'spawn token' flag. */ 
/* op ima sim attr get (OPC IMA INTEGER, "spawn station", 
&spawn station); */ 
/* spawn, token - (spawn station —— my. address); */ 
/* If the station is to spawn the token, create */ 
/* the packet which represents the token. */ 
/* 14APR94 :the bridges will spawn token in both rings */ 
/* -Karayakaylar */ 
spawn_token =1; 
if (spawn_token) 
{ 
tk pkptr 2 op pk create fmt ("fddi mac tk"); 


/* assign its frame control field */ 
op pk nfd set (tk pkptr, "fc", FDDI FC TOKEN); 


/* the first token issued 1s non-restricted */ 
op pk nfd set (tk pkptr, "class", FDDI TK NONRESTRICTED); 


/* The transition will be made into the ISSU TK */ 
/* state where the tk usable variable is used. */ 

/* In case any data has been generated, prset */ 

/* this variable to one. */ 

tk_usable = 1; 

} 


/* When sending packets the variable accum_bandwidth is */ 
/* used as a scheduling base. Init this value to zero. */ 

/* This statement is required in case this is the spawning */ 
/* station, and the next state entered is ISSUE, TK */ 

accum, bandwidth = 0.0; 
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/** state (INIT) exit executives **/ 
FSM_STATE_EXIT_FORCED (0, stateO0 exit exec, "INIT ) 
{ 
} 


/** state (INIT) transition processing **/ 
FSM_INIT_COND (spawn_token) 
FSM_DFLT_COND 
FSM_TEST_LOGIC (“ІМІТ” 


FSM_TRANSIT_SWITCH 
{ 
FSM_CASE_TRANSIT (0, 2, state2_enter_exec, ;) 
FSM_CASE_TRANSIT (1, 1, statel_enter_exec, ;) 


/** state (FR_REPEAT) enter executives **/ 

FSM STATE ENTER FORCED (6, state6 enter exec, "FR REPEAT") 
{ 
/* Extract the destination address of the frame. */ 
op. pk nfd get (pkptr, "dest addr", &dest_addr); 


/* If the frame is for this station, make a copy */ 
/* of the frame’s data field and forward it to */ 
/* the higher layer. */ 
/* 14APR94 : In order to send the frames which are */ 
/* addressed to the remote lan, check the address database */ 
/* of remote lan. Frames addressed to the remote lan shouldn't */ 
/* be repeated in the local ring -- This is a simple forwarding */ 
/* decision algorithm, one of the bridge's function */ 
/* - Karayakaylar */ 
if((dest_addr == my_address)Il(dest_addr <= 9)) 
{ 
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/* record total size of the frame (including data) */ 
pk_len = op pk total size get (pkptr); 


/* decapsulate the data contents of the frame */ 
/* 29JAN94: a new field, "pri", has been added to */ 
/* the fddi llc fr packet format in the Parameters */ 
/* Editor, so that output statistics can be */ 
/* generated by class and priority. -Nix */ 

op pk níd get (pkptr, "info", &data pkptr); 

op pk nfd get (pkptr, "pri", &pri level); 


/* The source and destination address are placed in the */ 
/* LLC's ICI before delivering the frame's contents. */ 
Op ici attr set (to llc ici ptr, "src addr", src, addr); 
Op. ici attr set(to llc ici ptr, "dest addr'", dest addr); 
ЈЕ ЕА ЕЕЕ т аа т а а ата а 
/*11SEP94: added pri and cr_time to fddi_mac_ind ici***/ 
/* both are needed for data collection***/ 
ЕК AR AAC AA AEA А Е me ИЕК АК ee ЕБ ЕИ 
Op_ici_attr_set (to_llc_ici_ptr, “pri”, pri_level); 
op. pk nfd get (pkptr, "cr time", &creation time); 
op ici attr set (to llc ici ptr, "cr time", creation time); 


op ici install (to llc ici ptr); 


/* Because, as noted in the FR. RCV state, only the */ 

/* frame's leading edge has arrived at this time, the */ 

/* complete frame can only be delivered to the higher */ 

/* layer after the frame’s transmission delay has elapsed. */ 

/* (since decapsulation of the frame data contents has occured, */ 

/* the original MAC frame length is used to calculate delay) */ 
tx_time = (double) pk_len / FDDI_TX_RATE; 

op_pk_send_delayed (data_pkpt, FDDI_LLC_STRM_OUT, tx_time); 


/* Note that the standard specifies that the original */ 

/* frame should be passed along until the originating station */ 

/* receives it, at which point it is stripped from the ring. */ 

/* However, in the simulation model, there is no interest */ 

/* in letting the frame continue past its destination unless */ 

/* group addresses are used, so that the same frame could be */ 

/* destined for several stations. Here the frame is stripped */ 

/* for efficiency as it reaches the destination; if the model */ 

/* is modified to include group addresses, this should be changed */ 
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/* so that the frame is copied and the original repeated. */ 
/* Logic is already present for stripping the frame at the origin. */ 
op. pk destroy (pkptr); 
} 
/* 14APR94 : the frames belong to this ring should be repeated. */ 
/* Thus, local traffic is constrained.-- This is filtering decision */ 
/* One of the bridge’s function - Karayakaylar */ 
else{ 
/* Repeat the original frame on the ring and account for */ 
/* the latency through the station and the propagation delay */ 
/* for a single hop. */ 
/* (Only the originating station can strip the frame). */ 
op pk send delayed (pkptr, FDDI PHY STRM OUT, 
Fddi St Latency  Fddi Prop Delay); 
} 


/** state (FR. REPEAT) exit executives **/ 

FSM STATE EXIT FORCED (6, state6 exit exec, "FR. REPEAT") 
{ 
} 


/** state (FR_REPEAT) transition processing **/ 
FSM TRANSIT FORCE (1, statel enter. exec, ;) 


/** state (ENCAP) enter executives **/ 

FSM STATE ENTER FORCED ($8, state8 enter. exec, ^ENCAP") 
{ 
/* A frame has arrived from a higher layer; place it in ‘pdu_ptr’. */ 
pdu ptr 2 op pk get (op. inupt sum ()); 


/* Also get the interface control information */ 
/* associated with the new frame. */ 
ici ptr — op intrpt ici (): 
if (ici ptr 22 OPC NIL) 
{ 
sprintf (error_string, “Simulation aborted; error in object (%d)”’, 
op. id. self ()); 
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ээ 66 66 66 “у: 
, 


op. sim, end (error. string, "fddi mac: required ICI not received”, “ “, 


) 


/* Extract the requested service class */ 
/* (e.g, synchronous or asynchronous). */ 
if (op_ici_attr_exists (ici_ptr, “svc_class’’)) 
Op. ici attr get (ici ptr, "svc class", &svc class); 
else svc. class Z FDDI SVC ASYNC; 


/* Extract the destination address. */ 
Op ici attr get (ici ptr, "dest addr'", &dest addr); 


/* Extract the original source address from ICI :16APR94 */ 
op ici attr get (ici ptr, "src addr", &orig src addr); 


/* If the frame is asynchronous, the priority and */ 
/* requested token class parameter may be specified. */ 
if (svc. class 22 FDDI SVC ASYNC) 

{ 

/* Extract the requested priority level. */ 

if (op_ici_attr_exists (ici_ptr, “pri’’)) 

Op ici attr get (ici ptr, "pri", &req pri); 
else req pri = 0; 


/* Extract the token class (restrictred or non-restricted). */ 
if (op. ici attr exists (ici ptr, "tk class")) 

op ici attr get (ici ptr, "tk class", &req tk class); 
else req tk class z FDDI TK NONRESTRICTED; 
} 


/* Check for the default ICI values; if they are not present */ 
/* compose the frame :21APR94*/ 
if(dest_addr != orig_src_addr){ 


/* Compose a mac frame from all these elements. */ 
ЕЕЕ КА ЖЖ ак ЖК ДЕ Е ЕЕ ЗОВЕ nee om mare ow AE AE ЗЕ 


/* 11SEP94: mac frame format is changed to fddi_mac_fr_tcp***/ 

РЕКЕ ЕЕЕ ЕЕЕ ЕЗ Е к ОЗОН Ж Ee a ae AK oko t 
тас гате рі = op pk create fmt ("fddi mac fr tcp"); 

op. pk nfd set (mac frame ptr, *"svc class", svc. class); 

op pk nfd set(mac frame, ptr, "dest addr'", dest addr); 

/*op. pk nfd set (mac frame, ptr, "src, addr", my. address);*/ 
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/* here original source address should be kept in mac frame :16APR94*/ 
op_pk_nfd_set (mac_frame_ptr, “src_addr’’, orig_src_addr); 
op pk nfd set (mac, frame ptr, "info", pdu, ptr); 


ЕЕЕ Еж ка ИО А ОН K A k kk k k k k / 


/* 11SEP94: cr_time is added to the MAC frame (Obits) because it*/ 

/* is needed for calculations, but taken out of the LLC frame */ 

РЕТ ат а ah К kk kkk kk kkk Ekk kkk kk kk kk / 
op_ici_attr_get (ici_ptr, “cr_time”, &creation_time); 

op_pk_nfd_set (mac_frame_ptr, “cr_time”, creation_time); 


printf(“\n*******dest_addr = Z5d\n” ,dest_addr); 
printf( ^****»**one src addr- Zo5d\n” orig_src_addr); 


if (svc. class zz FDDI SVC ASYNC) 
[ 
op pk nífd set (mac, frame ptr, "tk class", req tk class); 
op pk nfd set (mac, frame ptr, "pri", req pri); 
} 


/* O4JAN94: if the frame is synchronous, assign it a separate */ 
/* priority so that it may be assigned its own subqueue, and */ 
/* thereby be assigned its own probe for monitoring. -Nix */ 
if (svc_class == FDDI_SVC_SYNC) 

{ 

op pk nfd set (mac frame, ptr, "pri", 8); 

} 


/* Assign the frame control field, which in the model */ 

/* is used to distinguish between tokens and ordinary */ 

/* frames on the ring. */ 

op_pk_nfd_set (mac_frame_ptr,, “fc”, FDDI_FC_FRAME); 


/* Enqueue the frame at the tail of the queue. */ 
/* 27DEC93: at the tail of the prioritized queue. */ 
/* O4JAN94: must distinguish between synch & asynch. */ 
if (svc_class == FDDI_SVC_ASYNC) 
{ 
op_subq_pk_insert (req_pri, mac_frame_ptr, OPC_QPOS_ TAIL); 
} 
if (svc class Zz FDDI SVC SYNC) 
{ 
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op subq pk insert (8, mac. frame ptr, OPC QPOS TAIL); 
) 


/* if this station has not yet registered its intent to */ 
/* use the token, it may do so now since it has data to send */ 


if (!'tk registered) 


{ 

fddi tk register (); 
tk registered = 1; 
} 


} /* end of if(dest_addr != orig_src_addr) statement */ 


/** state (ENCAP) exit executives **/ 
FSM STATE EXIT FORCED (8, state8 exit exec, '"ENCAP") 


{ 
} 


/** state (ENCAP) transition processing **/ 
FSM TRANSIT FORCE (1, statel enter exec, ;) 
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